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ABSTRACT 



The Ada language has been designated by the Department 
of Defense to replace the computer languages currently in 
use by the various services for tactical computer programs. 
This thesis modifies the Cornell Subset of Ada so that it is 
suitable for producing a LALR(l) grammar. Machine generated 
compiling tools such as LEX and YACC, available under the 
UNIX operating system, are then used to implement the scanner 
and the parser for this subset of Ada. 
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I. 



INTRODUCTION 



A. BACKGROUND 

The Ada^" language has been designated by the Department 
of Defense to replace the computer languages currently in 
use by the various services for tactical computer programs. 
Because of this designation the Ada language will become an 
increasingly important language for computer science sub- 
specialists in the Navy. For this reason the Ada language 
was chosen as a broad topic for this thesis, and specifically 
to begin the work necessary for the eventual realization of 
an Ada compiler for the Naval Postgraduate School. 

B. APPROACH 

As a first thesis project using the Ada language it was 

2 

decided to utilize the UNIX compiler generator tools, LEX 
and YACC (described in detail in Section Two) , to produce 
a three-address code intermediate language. This approach 
was taken to allow future thesis projects to utilize the 



Named in honor of Ada Augusta, Lady Lovelace, the 
daughter of the poet. Lord Byron, and Charles Babbage's 
programmer . 

2 

UNIX is a Trademark/Service Mark of the Bell System, 
and is an operating system for the PDP-11 at the Naval 
Postgraduate School. 
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"front end" compiler thus produced for adaptations to the 
various computer systems in use at the Naval Postgraduate 
School . 

It was discovered that the Ada language grammar is not 
defined in a format which is easily adaptable to machine 
generated compilers, thus necessitating the eventual thrust 
of this thesis, the adapation of the Ada language for 
machine generated compilers. 

In Section Two the complete Ada grammar is introduced. 
Section Three describes the use of the UNIX tools YACC and 
LEX. Section Four fully describes the Cornell Subset of Ada, 
followed by a description of the Modified Cornell Subset 
(Ada/MCS) in Section Five. Section Six introduces the test 
programs and the results obtained and the conclusions of 
this thesis are presented in Section Seven. 
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II. THE COMPLETE ADA GRAMMAR 



A. HISTORY AND DESCRIPTION OF ADA 

The language Ada is a direct result of the Department 
of Defense High Order Language Commonality program which 
began in 1975 with the goal of establishing a single high 
order computer programming language appropriate for DOD 
embedded computer systems. The Ada language was designed 
with three major objectives: program reliability and 

maintenance, a concern for programming as a human activity, 
and efficiency. 

The Ada programming language has strong expressive 
power designed to cover a wide application domain. It is 
a modern algorithmic language designed to satisfy the 
Steelman^ requirements. A brief description of the language, 
along with an excellent language summary from the "Reference 
Manual For the Ada Programming Language Proposed Standard 
Document" [Ref. 2] which was received during the final 
stages of this thesis, is quoted in the following pages. 



^DoD requirements for the common high order language 
were formalized in a series of documents extensively 
reviewed by the Services, industrial organizations, 
universities, and foreign military departments which 
culminated in the Steelman Report to which Ada language 
has been designed. 
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An Ada program is composed of one or more program units, 
which can be complied separately. Program units may be 
subprograms (which define executable algorithms) , packages 
(which define collections of entities) , or tasks (which 
define concurrent computations) . Each unit normally 
consists of two parts: a specification, containing the 
information that must be visible to other units, and a 
body, containing the implementation details, which need 
not be visible to other units. 

This distinction of the specification and body, and the 
ability to compile units separately allow a program to 
be designed, written, and tested as a set of largely 
independent software components. 

An Ada program will normally make use of a library of 
program units of general utility. The language provides 
means whereby individual organizations can construct 
their own libraries. To allow accurate control of program 
maintenance, the test of a separately compiled program 
unit must name the library units it requires. 

Program units: 

A subprogram is the basic unit for expressing an algorithm. 
There are two kinds of subprograms: procedures and functions. 
A procedure is the logical counterpart to a series of 
actions. For example, it may read in data, update vari- 
ables, or produce some output. It may have parameters, 
to provide a controlled means of passing information 
between the procedure and the point of call. A function 
is the logical coounterpart of the computation of a value. 

It is similar to a procedure, but in addition will return 
a result. 

A package is the basic unit for defining a collection of 
logically related entities. For example, a package can 
be used to define a common pool of data and types, a 
collection of related subprograms, or a set of type 
declarations and associated operations. Portions of a 
package can be hidden from the user, thus allowing access 
only to the logical properties expressed by the package 
specification . 

A task is the basic unit for defining a sequence of actions 
that may be executed in parallel with other similar units. 
Parallel tasks may be implemented on multi-computers, 
multiprocessors, or with interleaved execution of a single 
processor. A task unit may define either a single executing 
task object or a task type defining similar task object. 
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Declarations and Statements: 



The body of a program unit generally contains two parts: 
a declarative part, which defines the logical entities to 
be used in the program unit, and a sequence of statements, 
which defines the execution of the program unit. 

The declarative part associates names with declared entities. 
For example, a name may denote a type, a constant, a 
variable, or an exception. A declarative part also intro- 
duces the names and parameters of other nested subprograms, 
packages, and tasks to be used in the program unit. 

The sequence of statements describes a sequence of actions 
that are to be performed. The statements are executed in 
succession (unless an exit, return, or goto statement, or 
the raising of an exception causes execution to continue 
from another place) . 

An assignment statement changes the value of a variable. 

A procedure call invokes execution of a procedure after 
associating any arguments provided at the call with the 
corresponding formal parameters of the subprogram. 

Case statements and if statements allow the selection of an 
enclosed sequence of statements based on the value of an 
expression or on the value of a condition. 

The basic iterative mechanism in the language is the loop 
statement. A loop statment specifies that a sequence of 
statements is to be executed repeatedly until an interation 
clause is completed or an exit statment is encountered. 

A block comprises a sequence of statements preceded by the 
declaration of local entities used by the statements. 

Certain statements are only applicable to tasks. A delay 
statement delays the execution of a task for a specified 
duration. An entry call is written as a procedure call; 
it specifies that the task issuing the call is ready for a 
rendezvous with another task that has this entry. The 
called task is ready to accept the entry call when its 
execution reaches a corresponding accept statement, which 
specifies the actions then to be performed. After completion 
of the rendezvous, both the calling task and the task having 
the entry may continue their execution in parallel. A 
select statment allows a selective wait for one of several 
alternative rendezvous. Other forms of the select statement 
allow conditional or timed entry calls. 
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Execution of a program unit may lead to exceptional situa- 
tions in which normal program execution cannot continue. 

For example, an arithmetic computation may exceed the 
maximum allowed value of a number, or an attempt may be 
made to access an array component by using an incorrect 
index value. To deal with these situations, the state- 
ments of a program unit can be textually followed by 
exception handlers describing the actions to be taken 
when the exceptional situation arises. Exceptions can 
be raised explicitly by a raise statement. 

Data Types: 

Every object in the language has a type which characterizes 
a set of values and a set of applicable operations. There 
are four classes of types: scalar types (comprising 

enumeration and numeric types), composite types, access 
types, and private types. 

An enumeration type defines an ordered set of distinct 
enumeration literals, for example a list of states or an 
alphabet of characters. The enumeration types BOOLEAN 
and CHARACTER are predefined. 

Numeric types provide a means of performing exact or 
approximate computations. Exact computations use integer 
types, which denote sets of consecutive integers. Approxi- 
mate computations use either fixed point types, with absolute 
bound on the error, or floating point types, with relative 
bound on the error. The numeric types INTEGER and DURATION 
are predefined. 

Composite types allow definitions of structured objects 
with related components. The composite types in the language 
provide for arrays and records. An array is an object with 
indexed components of the same type. A record is an object 
with named components of possibly different types. 

A record may have distinguished components called discriminants. 
Alternative record structures that depend on the values of 
discriminants can be defined within a record type. 

Access types allow the construction of linked data 
structures created by the execution of allocators. They 
allow several variables of an access type to designate 
the same object, and components of one object to designate 
the same or other objects. Both the elements in such a 
linked data structure and their relation to other elements 
can be altered during program execution. 
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Private types can be defined in a package that conceals 
irrelevant structural details. Only the logically 
necessary properties (including any discriminants) are 
made visible to the users of such types. 

The concept of a type is refined by the concept of a 
subtype, whereby a user can constrain the set of allowed 
values in a type. Subtypes can be used to define subranges 
of scalar types, arrays with a limited set of index values, 
and records and private types with particular discriminant 
values . 

Other Facilities: 

Representation specifications can be used to specify the 
mapping between data types and features of an underlying 
machine. For example, the user can specify that objects 
of a given type must be represented with a specified 
number of bits, or that the components of a record are to 
be represented in a specified storage layout. Other 
features allow the controlled use of low level, non 
portable, or implementation dependent aspects, including 
the direct insertion of machine code. 

Input - output is defined in the language by means of 
predefined library packages. Facilities are provided for 
input - output of values of user-defined as well as of 
predefined types. Standard means of representing values in 
display form are also provided. 

Finally the language provides a powerful means of para- 
meterization of program units, called generic program 
units. The generic parameters can be types and subprograms 
(as well as objects) and so allow general algorithms to 
be applied to all types of a given class. 



B. YACC AND LEX 

Initial research for this thesis began with Ada Syntax 
Summary which is presented in the "Preliminary Ada Reference 
Manual" [Ref. 1] . The initial goal of producing a parse 
table for the complete Ada grammar involved preparation and 
modification of the syntax to be able to use the PDP-11 
facilities of Yet Another Compiler-Comiler (YACC) [Ref. 5] 
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and LEX [Ref. 7]. YACC is a program which takes the syntactic 
(BNF) grammar rules of the language and generates a program 
which takes as its input the output of a scanner program 
(tokens) and parses a program written in the defined language 
(i.e. Ada). YACC also allows semantic rules to be defined and 
executed for each syntactic construct of the language, thereby 
completing the compilation process. In place of an input 
stream of tokens, YACC can also use the scanner routine gener- 
ated by the LEX program as a subroutine to provide the input 
tokens . 

LEX is a program that takes as its input regular expres- 
sions defining the characteristics of the raw character 
strings of a language and generates a scanner routine. This 
scanner routine has the capability to eliminate blanks and 
comments and to output groups of characters (tokens) which 
are meaningful to the syntac-tic rules of the language. 

Executed together LEX and YACC produce a "machine gener- 
ated" compiler whose input is the character string of the 
program to be compiled, and whose output can be either an 
intermediate code (generalized form of execution actions) , 
or a machine executable code. 

Using YACC for the Ada language was a two-step process 
since the Ada language specification is written in a modified 
Extended Backus-Naur Form (EBNF) and YACC requires the 
language grammar to be expressed in Backus-Naur Form (BNF) . 
Therefore, step one was conversion of EBNF to BNF and step two 
was actually executing the resulting BNF grammar using YACC 



and LEX . 
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The most significant difference between the EBNF and 
BNF forms (other than the fact that EBNF is far more con- 
venient for human reading of a grammar) is that two sets of 
metasymbols must be removed from the EBNF grammar to 
produce an equivalent BNF grammar. These are the square 
brackets [...] meaning zero or one occurences, and the 
brackets {...} meaning zero or more repetitions; also, 
several symbols must be replaced in the EBNF grammar to 
make the productions acceptable to YACC . The replacement 
operator, double-colon-equal (::=), must be colon (:). All 
trivial terminals (parentheses, semicolons, commas, etc.) 
must be enclosed in single quotes. All other nonterminals 
must be explicitly indicated to YACC and, finally, the 
head symbol production rule must be the top rule. 

The symbol replacement, explicit nonterminals and head 
symbol rule placement must all be accomplished manually. 

The brackets mentioned previously are automatically removed 
via a conversion process which yields new production rules 
with new nonterminals. These new nonterminals are formed 
by concatenating the original nonterminals with prefixes 
such as "fst." and "opt." [Ref. 8]. The entire conversion 
process, along with the details of executing the resulting 
BNF grammar on YACC are presented in [Ref. 8] . 

Once the complete Ada syntax listed in [Ref. 1] was 
modified to the proper BNF form, the grammar was examined 
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in detail for errors. Two errors were found in Appendix E 
of the Preliminary Ada Reference Manual [Ref. 1]. First, 
the token "character-^literal " was used in the production rule: 

enumeration-«-literal ::= identifier | character^-literal . 

"Character-^-literal" does not appear on the left hand side 
of any production and was, therefore, changed to 
"character«-string" . Secondly, in the "accept-<-statement" 
rule, in the nonterminal "entry-*-name" , the word "entry" 
should have appeared in italics indicating it was simply 
a syntactic modifier and not part of the token "name". 

After these errors were corrected, the complete Ada grammar 
in appropriate BNF form acceptable to YACC was executed. 

The input to YACC did not initially include any lexical 
analyzer or action code. 

The sheer length of the resulting BNF form of the Ada 
grammar caused a memory overload on the PDP-11 and YACC 
could not produce a complete parse table. This problem was 
solved by manually producing a list of every nonterminal 
in the full Ada grammar and sorting the list according to 
length (some nonterminals were embedded within others) . 

Using the UNIX line editor, each nonterminal was then replaced 
by two letter sequences, i.e., aa, ab, ac , ... The BNF 
grammar thus produced was acceptable to YACC and required far 
less memory space. YACC then produced a complete parse table 
for the abbreviated version of the full Ada grammar in proper 



BNF form. 
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The resulting parse table was riddled with shift/reduce 
and reduce/reduce conflicts ( almost five hundred total con- 
flicts) . After verification that the grammar was an exact 
duplicate of the syntax summary presented in the "Preliminary 
Ada Reference Manual" [Ref. 1], with the exeption of the two 
minor errors discussed previously, review of this attempted 
parsing of the grammar verified that the Ada language as 
defined in the Preliminary Manual was not LALR(l) . With 
the exception of a final execution of the full Ada grammar 
through YACC incorporating the changes made to a subset of 
the grammar (discussed in Section Seven) , this completed the 
work on the full Ada grammar. 
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III. UNIX TOOLS 



A. PREFACE 

This section of the thesis is intended to familiarize 
the reader with the various language development tools avail 
able under the UNIX Operating System and to supplement avail 
able documentation that often glosses over the intricacies 
of language development using UNIX. This section will also 
provide specific guidance to follow-on thesis projects that 
use UNIX for the purposes of automatic compiler generation. 

The compiler process of taking an input program written 
in a source language and producing as output an equivalent 
program in a target language is commonly subdivided into 
five distinct phases: lexical analyis (scanning), syntax 

analyzing (parsing), semantic analysis, code optimization 
and code generation. The tools available under UNIX con- 
centrate on the automation of only the scanning and parsing 
phases of compilation. Automation of the remaining phases 
has yet to become a reality. 

Although an overview of LEX [Ref. 7] and YACC [Ref. 5] 
was presented in Section Two, it was slanted towards a 
description of these UNIX tools rather than an explanation 
of how they are specifically used to build a compiler. This 
section provides detailed procedures for starting with the 
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given syntax of a strong subset of Ada (Ada/MCS) and auto- 
matically generating a lexical analyzer and parse tables. 

B. SPECIFICATIONS FOR USING YACC 

Ada/MCS is in Extended Backus-Naur-Form (EBNF) . As 
previously mentioned, EBNF is very convenient for human 
description of a grammar but is not acceptable to the YACC 
system. Therefore, the conversion program [Ref. 8] intro- 
duced in Section Two, which is stored in the Naval Post- 
graduate School Computer Sciences Laboratory under the 

v 

name "ebnftobnf", must be used to convert the subset in 
EBNF to BNF. The program "ebnftobnf" is a YACC program 
input and must be processed with the command: 

% yacc ebnftobnf 

The percentage symbol is the UNIX prompt symbol. The operator 
is expected to enter an operating system command. The execu- 
tion of the above command produces a file called "y.tab.c" 
that is written in the programming language C [Ref. 9 ]. 

This C program must be compiled with the YACC library by 
using the following operating system level command: 

% cc y.tab.c -ly 

The output of this compilation is the desired EBNF to BNF 
conversion program and is called "a. out". It is recommended 
that "a. out" be changed to a different name to remind the 
user that it is the EBNF to BNF conversion program. The 
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conversion program object code file used throughout this 
thesis is called "ebnf.conv". The preceding steps to 
arrive at a conversion program must only be accomplished 
once. After "ebnf.conv" is formed by the steps out- 
lined above, it may be used to convert any EBNF grammar to 
BNF, once the symbols referred to in Section Two (double- 
colon-equals and trivial terminals) have been properly 
replaced or designated. 

After forming the "ebnf.conv" program, Ada/MCS 
was converted to BNF form using the following UNIX 
operating system command: 

% ebnf.conv <ada . ebnf . sub >ada.bnf.sub 

The "<" symbol means use the given file name ( "ada .ebnf . sub" ) 
for input and the ">" designates that the output file be 
called "ada .bnf . sub" . 

After "ada .bnf . sub" has been created, several steps 
must be taken before executing the BNF form of the subset 
with YACC. Using the UNIX line editor ("ed ada .bnf . sub" ) , 
the command: 

> g/ + $/d 

was used to remove all blank lines from the file. The ">" 
character is the UNIX line editor prompt and is not entered 
by the user. This decreased the size of the file and was 
a preliminary step in matching up the line numbers of the 
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BNF grammar with the referenced reduction numbers from the 
output of YACC. 

Throughout the Ada grammar, the underscore was used 
extensively to more explicitly describe names (as in 
array_type_def inition) . Since the terminals at the Naval 
Postgraduate School are not equipped with the underscore 
character, it was replaced with the character "4-". YACC 
uses to indicate the position of the parsing process 

(which token is currently being analyzed) so it was decided 
to change this character, to eliminate confusion, with the 
line editor command: 

> g/V-/s//\$g 

The "$" character was not used for the underscore in the 
original EBNF form of the grammar since the ebnf to bnf 
conversion program expects or as name separators 

for its input, and will not accept a Since all punc- 

tuation must be enclosed in single quotes, a problem 
occurred when the single quote in the production: 

predef ined^at tribute ::= name ' identifier 

had to be enclosed in a single quotes. The resulting form 
in the EBNF subset became: 

predef ined-^-attri : name ' ' ' ' id 
This was converted to: 

predef ined^attri : name ' ' ' ' id 
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in the BNF form. In using YACC, as in C, the backslash ("\") 
is an escape character within the literals and therefore the 
line editor command: 

> s/ ' ’ ' ' / ' S N" / 

must be issued to change the line that "name * * * * id" 
appeared in to "name ' \' ' id". 

The final change to "ada .bnf . sub" while in the line 
editor was to ensure that the head production appeared as 
the first production in the BNF form of the subset. This 
was accomplished by using the line editor move command ("m") 
to move the appropriate lines to the start of the grammar. 

After completion of the above steps, "ada .bnf . sub" was 
in an acceptable form for YACC, but several steps were still 
required to actually use YACC. The next step in the process 
was to ensure the line numbers for each production in the 
BNF grammar corresponded to the reduction numbers in the 
parse tables in "y. output", the output file obtained from 
a proper execution of YACC. This was most efficiently 
accomplished by switching UNIX line editors to vi [Ref. 6 ]. 

Vi (visual) is a display oriented interactive text editor 
that was best suited to combine lines in productions that 
did not have a null (empty) option. The BNF version of a 
grammar that is produced via the conversion program dis- 
cussed above left a blank line following every production, 
whether it had a null option or not. The Vi command "J" 
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was used to close-up the first options of every production 
that did not have a null option, so that every production 
option (including null) would have a line number that cor- 
responded to the reduction numbers in each state of the 
parse tables of "y. output". 

The whole purpose of the above procedures was to pro- 
duce a set of production rules acceptable to YACC, and thus 
be able to build a compiler that can process a program in 
Ada to produce either a "yes" or "no" answer as to the 
program's syntactic correctness or to compile it to some 
target language. To accomplish this goal the BNF grammar 
must be put into a UNIX file that fits the YACC input 
format: 

token list 

o o 

BNF rules 

%% 

o o 

programs 

The token list was entered into a file called "ada . tokens " , 
and a small file was created called "ada. includelex" which 
consisted of two lines 

9 - 9 

'o ^ 

# include "lex.yy.c" (the output of Lex -, 

discussed later) . 

Thus, the operating system level command: 
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% cat ada. tokens ada.bnf.sub ada . includelex>ada . temp 



concatenates the required files into a file called "ada. temp" 
which can be processed by YACC using the operating system 
level command: 

% yacc -v ada . temp 

The "-v" option produces a verbose output file called 
"y. output" which is a complete parse table listing. Also 
produced by this command is a file called "y.tab.c" which 
is a compilable C source program. If YACC is executed 
without the verbose option, no "y. output" is created. 

C program statements for processing the grammar into 
a target language as each production is recognized can be 
mixed into the BNF rules using the " = {...}" format to 
enclose each action. For example: 

decl : obj$decl 

= { printf ( " | decl \n") ; } 

I type$decl 

= { printf (" | decl \n") ; } ; 

These action statements were not added to the grammar until 
after the BNF rules themselves were determined to be 
LALR(l) (no parsing errors). For this thesis, the actions 
that have been added to the grammar only output the par- 
sing actions as they are accomplished. In follow-on theses 
these actions can be changed to code generation actions. 
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Following the creation of a "y. output" file, the UNIX 
operating system command move ("mv") was used to change 
the file name as each execution of YACC will produce a 
new version of "y. output". At this point, several pages 
of output were saved by editing the new "y. output" and 
using the line editor command: 

> g/+$/d 

to delete all blank lines. 

The complete process described above to make changes in 
an EBNF grammar and then follow these changes through to 
a final parse table listing was used several times to 
finally ensure that the Ada subset (Ada/MCS) was a LALR(l) 
grammar. The details of this procedure are discussed fully 
in Section Five. 

C. SPECIFICATIONS FOR USING LEX 

The YACC program output "y.tab.c" makes a subroutine 
call to "yylexO". This call is a request for input tokens 
from a scanning routine . This scanner routine is produced 
by the LEX program. As described in Section Two the LEX 
program inputs are regular expressions and C language 
action statements. Appendix A is a listing of "ada.lex", 
the input to the LEX program for Ada/MCS . 

The general format of the LEX input is : 

[definitions] 

a % 

o o 
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[rules ] 



[user subroutines] 

In the definitions section of "ada.lex" are the regular 
expressions in the format of: 

name space regular expression 

For example: 

1 [a-zA-Z] 
d [0-9] 

c ( {1} I {d} ) 

defines "1" (for letter) as a character from a-z or A-Z , 

"d" (for digit) as a character 0-9, and "c" (for character) 
as a leter or a digit. 

The specific meanings of all the special characters 
used to form the regular expression are given in the LEX 
manual [Ref . 7 ] . 

Also in the definitions section are changes to the 
internal array sizes for the LEX program that override the 
default conditions set by the original program. For the 
Ada language it was necessary to change the array sizes. 

The rules section is in the format: 

lexical definition space C action statement 
Any reserved word can be returned by the LEX scanning rou- 
tines as a separate token value by using the word as a 
lexical definition, instead of returning every word as an 
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identifier. This saves the compiler writer from checking 
each identifier with a reserved word table in the parser 
section of the compiler and allows this evaluation to be 
completed in the scanner. 

Rules are included in this section for eliminating 
blanks, tabs, and new lines "[\t\u]", and eliminating 
comments [ $\n]*". These rules do not return any 

values to the parser. All other rules return a token 
value via the "return ( );" C statement. 

The single special characters (i.e. =) could have been 
left out of the rules sections and would have been given 
default values. A decision was made to supply token values 
to these characters for easier verification of the correct- 
ness of the tokens returned to the parser by this scanner. 

The scanner program produced by LEX may be run as a 
scanner only when a "main ()" routine is included in the 
user subroutines. This was done as a stand alone test of 
the scanner (see Section Six for results) . The separate 
compilation is done with the operating system command 
sequence: 

% lex ada.lex 
% cc lex.yy.c -11 -IS 

The first command executes the LEX program with 
"ada.lex" as the input file, and produces an output file 
"lex.yy.c" which is a C compilable file. 
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The last command compiles "lex.yy.c" with the LEX 
library routines to form a C object program of the scanner. 

The operating system command: 

% a. out <ada.prog >output 

executes the scanner thus produced, with an Ada language 
test program, and outputs a list of the tokens parsed. 

This command may be repeated for any number of test programs . 

The user subroutine section is not necessary for the 
scanner to interface with the parser produced by the YACC 
program. The "mainO" subroutine in this section is there- 
fore commented out in the C format: "/* ... */", before 

the parser and scanner are combined. 

The parser produced by YACC and the scanner produced 
by LEX may be combined by the following operating system 
command sequence : 

% lex ada.lex 
% yacc ada . temp 
% cc y.tab.c -ly -11 -IS 
% mv a. out ac 

The first command is the same as executing the LEX 
program for a separate compiler. It used "ada.lex" as 
input and produces "lex.yy.c". 

The second command executes YACC with "ada. temp" as 
input and produces "y.tab.c" as output. Again, the "-v" 
for a verbose output is optional . 
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The third command compiles "y.tab.c" (which contains 
^include "lex.yy.c") along with the YACC, LEX and UNIX 
operating system libraries. It should be noted that in 
order for "y.tab.c" to be compiled properly it had to be 
slightly modified. Since each grammar production became 
part of a huge "switch" statement in the C language, the 
length of the grammar exceeded the option limit ( 128 ) in 
the "switch" statement. The entire "switch" was simply 
divided into four switch statements of equal length and 
combined using the "if then else" construct. The compila- 
tion of "y.tab.c" produces the compiler object program 
"a. out" which in the last command is renamed "ac" (for 
Ada compiler) . 

The operating system command: 

% ac <ada.prog >output 

executes the compiler with an Ada language test program. 

This thesis project concludes with a verification of 
the combined actions of the parser and scanner and the out- 
put of this last command is a trace of the scanning and 
parsing actions (see Section Six for results) . 

All of the output produced by "ac" is preliminary 
information for verification purposes and can easily be 
deleted by eliminating all the "printf" C commands in the 
"ada.lex" and "ada .bnf . sub" files. 
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IV. THE CORNELL SUBSET OF ADA 



A. ADA/CS (CORNELL SUBSET) 

The intention of this thesis was to begin the process 
of building a compiler starting with a strong subset of 
Ada and allowing additional capabilities and features of 
the language to be added to this basic building block. This 
approach was taken due to time constraints and the size 
of the Ada language. 

In November of 1979 the Department of Computer Science 
at Cornell University issued Technical Report TR79-395, 
"Ada/CS — An Instructional Subset of the Programming 
Language Ada" [Ref. 4 ] which was used as the starting point 
for the language syntax for a machine generated front end 
compiler currently under production. 

The designers of Ada were faced with clear injuctions 

against any definitions of subsets of the complete Ada 

programming language. Those restrictions were to ensure 

standardization of the language and perhaps "to pressure 

the designers to be frugal in their proposals by denying 

them the escape that certain exotic features would be ignored 

4 

in practical subsets." 

4 

Archer, J. , "Ada/CS — An Instructional Subset of the 
Programming Language Ada", Technical Report TR79-395, 

Computer Science Department, Cornell University. 
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When the design phase of Ada was completed, the 
originators of the Cornell Subset of Ada saw no reason 
to continue the restrictions against defining a subset of 
Ada, and Viewed its development as a necessary instructional 
tool that would allow programmers the freedom to not use 
certain language features of Ada. Another concern of the 
subset writers was that every programming language that is 
generally accepted as viable (and DoD assures us that Ada 
will be accepted) is subjected to subsetting. Thus, to 
avoid a myriad of incompatible subsets, the authors of 
Ada/CS formulated their subset as the basis for a small number 
of precisely defined standard subsets. The intent of Ada/CS 
was strictly for introductory-level programming instruction 
and the authors felt a strong need to overcome the mostly 
political use of FORTRAN for basic instructional purposes. 

The advantages of a formal subset of Ada are significant; 
especially in relation to compilers. Subset compilers are 
easier and less expensive to develop, faster in operation, 
and executable on smaller systems. In addition, a compiler 
can provide must more effective diagnostics if it knows that 
certain language features will not be used. 

B. ADA/CS ERRORS 

Ada/CS was defined by removing some constructs entirely 
from the full language and limiting some that remained. 
Regardless, the syntax summary presented in Ada/CS was 
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supposedly a proper subset of the Ada syntax presented in 
"The Preliminary Ada Reference Manual" and all productions 
of the subset were purportedly created by simply removing 
phrases from the reference version. Although this was 
generally the case, the following errors were noted and 
corrected in the Ada/CS specification. 

In the "basicx-loop" production, a semi-colon did not 
follow the optional identifier following "END LOOP". There 
were two cases where the zero or one symbol [ . . . ] had been 
replaced by the zero or more symbol {...} in the subset. 

These two cases were in the "relation" production, around 
"relational^operator simplex-expression" and in the "body" 
production around "visibility restriction". The last error 
was another case of losing the italic designation of a 
syntactic modifier for the nonterminal "name" (there was a 
different italics error discussed in Section Two that was 
in the full Ada grammar). In the production for " typex-mark" , 
in the nonterminal "typex-name" , the work "type" should have 
appeared in italics to demonstrate its syntactic modifier 
status. The corrected version of the above errors are in 
Appendix B under "Ada/CS". Note that italicized words are 
simply eliminated in production rules. 

Although the above errors were a bit tedious to 
discover, they were easily corrected and not considered 
significant. One major shortcoming of Ada/CS which was very 
significant from a compiler writer's point of view was the 
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absence of a head production in the grammar. A head production 
is defined as the one grammar rule which all other grammar 
rules will eventually reduce to. The head production rule 
when recognized by the parser, signals that the end of the 
input character stream has been reached and the compilation 
is finished. This problem resulted from the deletion of the 
production "compilation : := {compilation-*-unit } " from the 
subset. Whether or not the authors of Ada/CS intended to 
eliminate separate compilation of individual units from 
the subset is not clear. It can be inferred by the omission 
of the "compilation" production that this capability was not 
desired in Ada/CS. But, by this omission, the head production 
was also eliminated. The subset was therefore expanded to 
include the "compilation" start symbol and associated 
productions from the Ada reference manual. 

C. ADA/CS COMPARED TO THE COMPLETE ADA LANGUAGE 

Several features of the complete Ada language were omitted 
in the CS subset. The main features of the complete Ada 
language were discussed in the language summary portion of 
Section Two. The major features that were not included in 
the Cornell Subset are discussed below. 

The facilities for defining tasks and all concurrent 
programming features have been eliminated in the subset. 

Control over variable record representation and access 
variables has been lost. The name overloading or redefinition 
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capability has been discarded along with user-defined generic 
procedures. The last feature omitted was the exception 
mechanism. 

Along with these major construct omissions, further 
compression of the full Ada language was accomplished by 
attaching semantic and syntactic restrictions to the con- 
structs included in Ada/CS. The principal restrictions 
were imposed on expressions, subprograms, declarations, 
case statements and goto statements. Expressions were 
modified by not allowing array or slice expressions and 
discarding exponentiation from the subset. The subprogram 
construct was modified considerably to greatly simplify 
the language. Subprograms cannot be used to redefine 
operators. Also, actual paramenters corresponding to out 
and in out formal parameters must represent locations which 
can be legally assigned values of the appropriate type. 

Formal parameter array subscript range values cannot be 
specified. Procedure side-effects are not allowed in 
expressions; only function subprograms can return values. 

The last subprogram restriction was that keyword parameter 
mechanism were not allowed in Ada/CS. Declarations were 
limited so that no anonymous types were allowed. Case 
statements were slightly modified by demanding that at least 
two choices be specified and requiring a "when others" 
clause if all legal cases are not syntactically guaranteed. 
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The last restriction was allowing the goto statement to 



transfer control forward only. The Ada/CS Technical Report 
[Ref. 4 ] provides further details of each construct 
restriction. 

D. ABBREVIATION OF THE SUBSET 

Section Two discussed the difficulties encountered with 
the full Ada grammar, in EBNF form, in relation to available 
memory space on the PDP-11. Since the final subset used 
in this thesis consisted of approximately half the productions 
of the complete Ada language, the somewhat drastic abbreviation 
mechanism of converting every nonterminal to a two letter 
sequence was not necessary in the subset. The subset 
productions were therefore abbreviated in a logical manner 
and the resulting BNF form is easily understood. Appendix B 
lists the modified Cornell subset (Ada/MCS) along with a 
listing of "ada. sub. terms" that may be used to clarify any 
abbreviation that might be ambiguous to the reader. 

The details of Ada/MCS are discussed in the next section, 
along with a complete explanation of how Ada/CS was modified 
to be LALR(l) . 



34 



V. THE MODIFIED CORNELL SUBSET (ADA/MCS) 



A. PREFACE 

As stated in Section Three, YACC requires its input 
grammer to be LALR(l) . The original Cornell Subset (Ada/CS) 
was not LALR(l) and when executed with YACC resulted in over 
two-hundred reduce/reduce and shift/reduce conflicts. 
Reference [ 3 ] provides a complete explanation of these con- 
flicts. In the absence of any user directives to the con- 
trary, YACC invokes two disambiguating rules to deal with 
conflicts. In a shift/reduce conflict, the default is to 
do the shift. In a reduce/reduce conclict, the default is 
to reduce by the earlier grammer rule in the input sequence. 
Therefore, although it is possible for YACC to produce a 
parser even in the presence of some conflicts, it was one of 
the prime goals of this thesis to rewrite the Cornell Sub- 
set of Ada so that it was LALR(l) and therefore the result- 
ing parse table would be free of all conflicts. 

B. CHANGING ADA/CS TO ADA/MCS 

Following the correction of the grammer errors discussed 
in Section Three, various changes to the BNF form of the 
Ada subset were made. Each conflict in the initial parse 

table for Ada/CS was carefully examined to discover the 

» 

source of the conflict and a revision of the appropriate 
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production (s) was attempted so that the language would not 
be restricted by the revision. This was not possible in 
all cases and some revisions caused minor limitations to 
the subset grammar. Several conflicts in the parser auto- 
matically generated by YACC could only be eliminated by 
restricting the Ada grammar. 

This section details each change to the Ada/CS pro- 
duction rules that was made in order to change it to LALR(l) . 
Unless specifically stated, the change was not restrictive 
to the grammar. 

The first change was a separation of the sections of 
Ada/CS that rightfully belonged in the lexical analyzer. 
Reference [ 4] contained section 2.3 through 2.5 that defined 
identifiers, numbers and the character string which were in 
turn deleted from Ada/MCS and defined more appropriately in 
"ada.lex" (see Appendix A) . 

After adding the head production "compilation-*-unit" and 
its associated productions as detailed in Section Three, it 
was determined that several reduce/reduce conflicts were 
being caused by Ada/CS not distinguishing whether an "id" 
was meant to be part of an "enum-^-lit" or part of a more 
generalized expression or part of "name". The following 
productions illustrate this confusion: 

enum-e-lit : id | char-*- string 

name : id I indexed-*-comp I selected-*-comp I predef ined«-attr 
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lit : mim | enum^lit | char^string 
pri : lit I var | subprog-<-call | aggr 
I qualif ied-*-expr | (expr) 

The production: 

lit : num | enum-*-lit | char-*-string 

was allowing "id" to come through the literal production 
above into the "primary" , "factor", "term", "expression" 
chain which reduced "id" into expressions without going 
through the "name" production. The conflict thus created 
meant that an "id" which was part of a "enuirH-lit" was reduced 
into one of the "expression" structures. For example, in 
the "enum«-type-*-defn" : 

TYPE light IS (red, amber, green) ; 

The identifier "red" may first be reduced to a name, where 
in fact it is strictly an enumeration literal. This some- 
what intricate problem was corrected by simply eliminating 
"enum-elit" from the "lit" production, resulting in: 
literal : num | char-«-string 
The productions: 

pri : lit | aggr I var I subprog-*-call 
I qualif ied-<-expr | ' (' expr ') 1 

var : name opt .disc-e-range .-*■ . 

| name ' . ' ALL 
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opt.^-.disc-'-range.-'-. : e 

I ' ( ' disc-'-range ' ) ' 

subprog call : name opt .*■ . para-*-assoc . . 1st .*■ .para-<-assoc . . 

I * ( * para-*-assoc fst.-*-.para-*-assoc ' ) ' 

led to confusion as to which optional null production was 
being parsed when null options (e) were encountered. For 
example, the subprogram call: 

print^report ; 

with no parameters could be interpreted by the parser as 
a variable. 

The solution was to eliminate the "opt .disc-*- range" 
and the "opt para-«-assoc .. 1st para-*-assoc " in the 
above productions for "var" and "subprog-<-call" so that 
these productions would be parsed only if they began with 
" name ' ( ' " and if there was no trailing parenthesis the 
parsing table would be left with just a "name" which was 
added to the primary production above to yield the follow- 
ing corrected productions which will parse the same language: 

pri : lit | aggr | var | subprog-<-call 

I qualif ied^-expr | ' (' expr * ) * | name 

var : name ' . ' ALL 

I name ' ( ' disc-grange ' ) ' 

subprog-t-call : name * ( * para-*-assoc-<-f ist .para-«-assoc . ')’ 

A problem occurred with the "expr" production in that if 
no option followed a "rel" in the production: 
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expr : rel fst.AND.rel. 

| rel fst.OR.rel. 

| rel fst.XOR.rel. 

the parse table did not know which empty option to parse. 
For example, the program segment: 

IF a<b THEN 
LOOP . . . 

is an example of an expression consisting of only one rela 
tion which would lead to the compiler not being able to 
determine which option of this production is being reduced 
The solution was formulated by changing "expr" to 
encompass the logical operator functions in the following 
manner : 

expr : expr log-*-op rel 
| rel 

At this point in the conversation from Ada/CS to the 
LALR(l) Ada/MCS, it became apparent that changing the BNF 
form of the grammar was much more difficult than analyzing 
the EBNF form and making changes to it. The procedure 
therefore changed at this point in the thesis to strictly 
working with the EBNF grammar. 

Another conflict was caused by "expr" being a legal 
case of the "aggr" production: 

aggr : ' ( ' comp+assoc { ' , ' compn-assoc } ' ) ' 
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comp-*-assoc : choice { ' | ' choice } '=>' expr ; 

pri : lit | aggr | var I subprog^-call 

I qualif ied-*-expr | ' (' expr ' ) ' | name 

An example from the language illustrates this point. The 
expression 

(a<b) 

parses to either an "aggr" or an "expr" and the real deter- 
mination of the type of language construct desired must be 
accomplished semantically. 

The solution was to eliminate " ' (' expr ') ' " from the 
"pri" production which also contained "aggr", and let 
" ' (' expr ') ' " parse through "aggr". The difference in 
code generation between an "expr" and an "aggr" (an array 
or record value) must be decided at the semantic level. 

Another significant ambiguity occurred in Ada/CS due 
to the fact that it allowed so many productions to begin 
with " simple-*-expr " . The production 

range : simple-*-expr ' . . ' simple-*-expr 

led to the most of the parsing conflicts and was therefore 
changed by limiting the first " simple-*-expr " to an "id" or 
a "lit" as follows: 

range : range-*- id ' . . ' simple-*-expr 
range-«-id : id | lit 
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Perhaps the major source of parsing errors in Ada/CS 
concerning the fact that "name ’ ( 1 " could be the start of 
an indexed+-comp (array) , a "var" (part of an array) , a 
"subprog-*-call" , or a "qualif ied-*-expr " . The difference 
was not recognizable in the compiler because all the above 
productions used the same delimiter, i.e., " ( ) For 

example, when a subprogram call has parameters as in 

cos (x, y) ; 

this call is syntactically the same as an array variable 
an+array (x,y); 

The solution to this delimiter situation was two-fold. 
The first part was to remove "qualif ied^expr" completely 
from the new grammar and to let the semantic actions tell 
whether " name (expr) " was a qualified expression or a 
subprog-*-call . The second phase of the solution was to make 
" name ' (' "a general form for a subprogram, array variable 
or qualified expression. This would make it necessary for 
the parser action statements to differentiate using the 
symbol table and generate errors where new incorrect pos- 
sibilities could be parsed. This step also allowed the 
productions "para-f-assoc" and "actual-*- para" to be deleted. 

The resulting productions from the above language restric- 
tions follow: 

name : id | subprog-«-array-«-var I selected-*-comp 
| predef ined-*-attri 



41 



selected-*- comp : name ' . ' id 
predef ined-*-attri : name ' ' ' ' id 
var : name 1 . ' ALL 

subprog-<-array-*-var : name ' ( ' expr { ' , ' expr } ' ) ' 

In the productions: 

disc-grange : [type-*-mark RANGE] range 

aggr : ' ( ' comp-*-assoc { ' , ' comp«-assoc } ' ) ' 

comp+assoc : [choice { * | 1 choice } v =>'] expr 

choice : simple-<-expr | disc-«-range | OTHERS 
simple-*-expr : [unary«-op] term { adding-<-op term } 

when an "aggr" was parsed through the "comp^assoc" and 
"choice" productions, a decision was faced whether to 
parse to a "simple-<-expr" or a "disc-grange". These pro- 
ductions had different optional beginnings and the parser 
could not choose which production it was attempting to 
parse, as can be seen in the following example: 

C : TABLE := (0..4 => 0) ; 

C : TABLE := (5. .9 => 1.0) ; 

where the first numbers (0 and 5) are the beginnings of the 
discrete range, but the compiler cannot distinguish until 

the is reached whether the numbers might be the 

beginnings of simple expressions. 

It was decided to allow only one of the two productions 
to have an optional beginning; therefore, the language 
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was restricted by eliminating the option of a null pro- 
duction at the beginning of the "disc range" production: 

disc-<-range : type-*-mark RANGE range 

In every instance that "AND" or "OR" was encountered, 
a conflict was generated when the parser did not know 
whether to parse to "cond" or "expr". The following pro- 
ductions illustrate the problem that a LALR(l) parser had 
parsing the grammar as written because "AND THEN" or "OR 
ELSE" created a necessity to look ahead two tokens: 

cond : expr { AND THEN expr } 

I expr { OR ELSE expr } 
expr : expr log-<-op rel I rel 
log-«-op : AND | OR | XOR 

Ada/MCS removed this (look ahead by two tokens) conflict 
by changing the "cond" production so that "AND THEN" and 
"OR ELSE" became single tokens: 

cond : expr { AND . THEN expr } 

I expr { OR. ELSE expr } 

This production in turn created an ambiguity since if 
neither "AND. THEN" or "OR. ELSE" were present, the parser 
did not, again, know which empty option to follow. The 
empty options were combined as follows: 

cond : expr { cond^ext } 
cond«-ext : AND. THEN expr 
! OR. ELSE expr 
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thus creating a "condition extension" production, which 
did not change or restrict the language. 

Another series of conflicts were created by the parser's 
attempts to decide whether the "choice" option was present 
or not and therefore distinguishing whether "id" and "lit" 
were starting a "choice" or starting an "expr" in the 
productions : 

range-«-id : id | lit 

choice : range-«-id | disc-grange | OTHERS 
compx-assoc : choice { * | * choice } '=>' expr 

These conflicts were solved by creating a restricted 
choice ( "restr-«-choice" ) in the "comp-‘-assoc" production as 
follows : 

comp+assoc : restr-«-choice { * | * choice } '=>' expr 

I pri [{ ' | ' choice } '=>' expr] 

restr-«-choice : disc«-range | OTHERS 
choice : range-<-id | restr«-choice 

thus restricting the grammar by eliminating the option of 
allowing a "simple-*-expr" to start a "choice". Note that 
the second option for "compn-assoc " used "pri" instead of 
"simple-<-expr" . This further restricts Ada/MCS in that a 
unary operator must be put in parentheses when used in the 
"comp^-assoc" production. This restriction was a valid 
trade-off rather than allowing "comp*-assoc" to begin with 
"simple-<-expr " which would have caused further complicated 
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changes to Ada/MCS that would considerably lengthen the 
EBNF form of the grammar. 

C. OBSERVATIONS 

The preceding description of the various changes made 
to Ada/CS in order to modify the grammar to be LALR(l) 
are traditional examples of the trade-offs that language 
implementors must face: restricting the grammar or 

lengthening the parse table. Since most compilers have 
specific time constraints that must be met, each restric- 
tion must be evaluated to intrinsically measure the time 
saved by shortening the parse table versus the intended 
capability of the original language grammar. 

Each modification that was made to Ada/CS was the final 
result of many experiments in efficiency and the resulting 
Ada/MCS does not lose much capability compared with Ada/CS. 
Appendix B contains the Ada/MCS grammar and Appendix C is 
the conflict-free parse table that was automatically 
created by YACC for Ada/MCS . 
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VI. TEST PROGRAMS AND RESULTS 



Appendix D contains several test programs, written in 
Ada/MCS, that make use of the majority of the features 
available in the subset. The test programs are not elaborate 
but serve to illustrate that the automatic scanner and 
parser developed for Ada/MCS functions properly. Each program 
illustrates different variations of syntactic constructs from 
Ada/MCS. The output of each compiled Ada/MCS program is an 
easily decipherable scanner-parser action trace. This trace 
is provided in Appendix D for the first four programs only to 
demonstrate the format of the scanner-parser action trace; 
the other syntactic constructs tested are shown without trace 
results . 

Each test program has two versions: a syntactically correct 
form and an incorrect form. The format of the scanner-parser 
action trace is: 

token number (from ada.lex) | token 

reduction 

reduction 

These reductions contine until another token is needed. 

Another token number from ada.lex is issued and the process 
continues until the head production is reached. For example, 
the program excerpt "PROCEDURE test IS" would have a 
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scanner-parser action trace as follows: 

28 | PROCEDURE 

| opt . vis$restriction . 

| opt. SEPARATE 
| subprog$nature 
54 | test 

| designator 
18 | IS 

| opt . formal$part . 

| opt . RETURN. type $mark 
| subprog$spec 

If a syntax error occurs, a line is skipped in the 
scanner-parser actions trace and YACC issues the statement 
"syntax error". The error recovery procedure defined in 
the YACC action statements cause the parser to request tokens 
from the scanner until an end of statement character (;) is 
received. The printer prints the message " | Parse error ", 
and the procedure continues to parse beginning with the next 
statement. Ada. lex, along with deleting comments and 
ignoring blanks, tabs, and newlines, also issues the 
diagnostic "Scanner error : unknown symbol" in every instance 
that an unknown character is encountered. The character is 
then ignored and the parse continues. 

The scanner-parse action traces in Appendix D illustrate 
the above actions. 
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VII. CONCLUSIONS 



A. DOCUMENTATION INADEQUACIES 

The original intention that ultimately led to this 
thesis was a full implementation of a compiler for the pro- 
gramming language Ada. As is common with most compiler 
writing projects, unforeseen problems were encountered; 
specifically, inadequate documentation of the UNIX system 
automatic compiler generation tools and ambiguities in the 
Ada language. These problems forced a redirection of the 
thesis goals to the task of laying the groundwork for a 
future implementation of Ada through the development of the 
first two steps of the compiler process; the scanner and 
the parser. 

The documentation for YACC and LEX had no specific 
errors, but several weaknesses existed. The documentation 
did not provide enough detailed explanation of LEX or YACC 
or specific examples for a first-time user of these tools. 
It also did not include any specific implementation details 
concerning the Naval Postgraduate School PDP-11/-50 system. 
For example, the LEX documentation listed two distinct 
methods of specifying character constants: quotation marks 

and backslashes; however, on the NPS system the only method 
implemented was the backslash. 
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Section Three of this thesis was an attempt to alleviate 
these documentation shortcomings by providing a detailed 
description of the use of these UNIX tools for the project 
of writing an Ada compiler (or any compiler) . 

Another serious documentation deficiency was the inclu- 
sion in the UNIX documentation of an introductory description 
of a program called EYACC (Extended Yet Another Compiler- 
Compiler) which purported to expand the memory capability of 
the YACC program that was eventually used for this thesis. 

Due to the size of the Ada grammar, EYACC was originally 
chosen for this thesis to take advantage of its expanded 
memory capabilities. EYACC was discarded at the later stages 
of the thesis because it was discovered that it was only 
partially implemented on the NPS PDP-11/50 system. It would 
produce a parse table listing, but when compiled, the listing 
would yield no output. 

B. FUTURE SYMBOL TABLE IMPLEMENTATION 

The major objective of this thesis was to verify the 
possibility of a machine generated parser and scanner for 
Ada. In the process of revising the Ada grammar to form 
an LALR(l) grammar it was discovered that some ambiguities 
in the language were due to the similarity of the syntactic 
constructs for different semantic actions. For example, 
the array variable " array-*-a (x,y , z) " is syntactically similar 
to the subprogram call "cos(x,y)". This problem could be 
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resolved in either of two ways: (1) modify the scanner 

to use a symbol table lookup procedure and return a token 
value for "array-«-a" or "cos" that is more specific than 
an identifier (e.g., "array-«-id" and "subprog-s-id" ) , or (2) 
make the grammar rule recognize the general syntactic form, 
(i.e., "identifier (expression, expression ...)") and use a 
symbol table lookup procedure in the action portion of the 
grammar rule to distinguish between "array-«-a" and "cos". 

Due to the time constraints of this thesis it was not 
possible to implement a symbol table, consequently it was 
decided to delay the symbol table lookup procedure as 
explained in the second alternative given above. This 
allowed for the verification of the scanner-parser inter- 
face without use of a symbol table. 

This solution was decided upon for the ambiguities 
discovered between array or record names and subprogram 
names, and for the ambiguity between array or record 
parameters and variables. 

When a symbol table is eventually incorporated as a 
follow-on to this thesis, it may be desirable to use a 
symbol table lookup procedure in the scanner, resulting in 
simpler semantic actions. 

C. INCLUSION OF ADA/MCS IN THE FULL ADA GRAMMAR 

The elimination of the shift/reduce and reduce/reduce 
errors in the Ada/MCS subset discussed in Section Five made 
it desirable to investigate the effect of the Ada/MCS 
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changes on the full Ada grammar. This investigation was 
accomplished by manually changing the abbreviated BNF form 
of the full grammar and processing the modified full 
grammar with YACC. 

This process decreased the parsing errors from 490 
to 2S6 . 

D. SUMMARY 

This thesis was written using the "Preliminary Ada 
Reference Manual" as its primary source of documentation 
and, as has been discussed, it was discovered that Ada is 
not easily implemented by automated compiler generation 
tools. During the final stages of this thesis, the pro- 
posed standard reference manual for Ada was acquired and 
a review of this document revealed that the original 
ambiguities of the language still exist in the proposed 
final version of Ada. 

One conclusion of this thesis is the fact that a pro- 
grammer may use Ada to express his ideas without ambiguity, 
but a reader may find the same program ambiguous. The 
difficulties discussed in Section Five concerning the 
" name ( " dilemma very clearly substantiate this point. 
Variable names are not easily distinguishable by the 
reader without referring to the data declarations section. 
It is acknowledged that the designers of the Ada language 
intended arrays and subprogram calls to look alike, since 
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it may sometimes be desirable to implement arrays as sub- 
programs (for example, sparse arrays). However, it is felt 
that the readability problem created by this intended 
ambiguity may eventually create maintenance difficulties 
for ongoing software development projects. 

Section Five provides a detailed analysis of the 
changes that were necessary to convert an existing subset 
of Ada to a LALR(l) grammar. In the development process 
of Ada the primary consideration seems to have been an 
attempt to create a language that would impose a structured 
programming environment upon the users, for the enhancement 
of the software engineering process of program development, 
without enough consideration being given to the language 
implementors. Perhaps the strongest conclusion drawn from 
this thesis is that Ada compilers may be more costly and 
take longer to develop than anticipated due to these lan- 
guage ambiguities. This could result in delaying the 
replacement of the current DOD tactical languages in use 
with a standard acceptable Ada language. 
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APPENDIX A 



Ada . 1 e x 

This appendix is a listing of the input file to the 
LEX program and shows the reserved words/ and regular ex- 
pressions defining identifiers/ numbers/ and character 
strings. 

1 ta-zA-Zl 

d [0-91 

c ( < 1 > t < d > ) 

cx (\<-J <1 > ! <d>) 

dx ( \«* 1 { d > ) 

i ( {dHdx } * ) 

i decex (<i>\«<i)<e>) 
i dec ( { i > \ . I i > ) 
iex ( { i } { e > ) 

b c {i }\*c m ; {d> ) + (\«-: <n i {<j> )*) 

e (\E((\ + ?H>) ! (\-<i>))) 

charstr \" C\aO-\ 1 76] *\" 

id [lHcxl* 

num {i>Mb>J{idec>JIidecex}!{iex> 

Xe 600 

Xo 2000 
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Xn 


300 






Xa 


2000 






Xo 


2000 






XX 








ALL 


{ p r i n t f ( " 1 i 


");ECHO;printf ( ” 


\n") ; returnC 1 ); > 


AND 


{printfC" 2 ! 


") ;ECHO;printf (" 


\n”);return(2);> 


ARRAY 


{ p r i n t f ( " 3 


! ”) ;ECHO;printf (" 


\n")?return(3);> 


ASSERT 


{print f ("a 


! ");ECHO;printf ( 


" \n");return(a);} 


BEGIN 


(printf ("5 


' " ) JECHO;pri nt f (" 


\n") ; return(5) ? > 


BODY 


{print f ( "6 ! 


" ) ; ECHO ;printf(" 


\n”);return(6);} 


CASE 


{printf("7 ! 


")/ECHO;printf(" 


\n") ; return(7) ; ) 


CONSTANT 


{printfC" 


8 ! '* ) ; ECHO ; pr i n t f ( " \n" ) ; return(8) ; } 


ELSE 


{printf( M 9 ! 


H );£CHO;printf(" 


\ n " ) ; return(9) ; } 


ELSIF 


{printfC'10 


! " ) ;ECHO;pri nt f ( 


" \n” ) ; return (10);} 


END 


{printfC'l 1 


") ;ECHO; print f(" 


\n");return(ll);> 


EXIT 


{pr i nt f ( M 1 2 


! M );ECHO;printf(” 


\n");return(12);o 


FOR 


{pr i nt f ( " 1 3 


! "); ECHO; printf (" 


\n");return(l3);> 


FUNCTION 


{printf (" 


la : ");ECHO;printf(" \n") ; returnC la) ; } 


GOTO 


{pr i nt f ( " 1 5 


: " ) ; ECHO? pr i nt f ( " 


\n H );return(15);> 


IF 


{printf( M 16 ! 


•'); ECHO; print f(” 


\n")?return(16);) 


IN 


{printf( M 17 ! 


") ;ECHO;printf (" 


\n" ) ; return( 1 7) ; } 


IS 


{printf("18 ! 


");ECHO?printf (" 


\n");return(18);> 


LOOP 


{printf ( H 19 


! ") ;ECH0;printf (" 


\n");return(19);> 


MOD 


{printf (”20 


! " ) ; ECHO; printfC" 


\n M );return(20);> 
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NOT 


{print f ( "21 


NULL 


{printf ("22 


OF 


{printf("23 [ 


OR 


{printf("24 J 


OTHERS 


{print f ( "2 


OUT 


{printf("26 


PACKAGE 


{pr i nt f ( " 


PROCEDURE <printf( 


RANGE 


{pri nt f ("29 


RECORD 


{printf ("3 


RESTRICTED {printf 


RETURN 


{pri nt f ( "3 


REVERSE 


{or i nt f ( " 


SEPARATE 


{printfC" 


THEN 


{ p r i n t f ( " 3 5 


TYPE 


{printf ("36 


USE 


{printf ("37 


WHEN 


{printf ("39 


WHILE 


{printf("50 


XOR 


{printf( N 5l 


AND. THEN 


{printfC' 


OR. ELSE 


{pr i nt f ( " 


\ :\? 


{printfC' 70 


\.\. 


{printf("7l 



I II 1 • 



);ECHO;printf(" \n" ) ; return (21 ) ; > 



I »» 'l • 



);ECHO;printf(" \n");return(27);> 



! ")?ECHO;printf( N \n");return(28);> 
) ;ECHO;pri nt f (" \n" ) ; ret urn (29) ; > 



");ECHO;printf(" \n");return(35);} 
" );ECHO;printfC" \n");return(36);} 
"); ECHO; print f ( H \n " ) ; re t u rn ( 37 ) ; > 
") ; ECHO; print f C H \n " ) ; re t u rn ( 39 ) ; } 



H ) ; ECHO; print f (" \n") ; return (52) ; > 
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=\> 


( d r i n t f ( " 7 2 S 


");£CHo;ppintf (" 


\n " ) 


; r et u rn ( 72 ) ; a 


\/\? 


(pri nt f ( "73 


! ");ECHO;ppintf (" 


\n" 


);return(73);} 


\<\ = 


(printf("74 


: ") ;ECHO;ppint f (" 


\r* " 


); re turn (74);} 


\>\= 


(printf ("75 


: M ) ;ECHO;ppintf (" 


\n " 


) ; return ( 75) ; > 


\<\< 


{printf ("76 


! " ) ; ECHO; pri nt f ( " 


\n " 


);return(76);} 


\>\> 


( p p i n t f ( " 7 7 


! ") ;ECHO;printf (" 


\n " 


); return (77);} 



\; 


(ppintf("78 


1 

• 


") 


;echo 


; p p i n t f ( " 


\n 


") 


;return(78) 


; > 


\( 


(print f ( "79 


1 

1 


") 


;ECH0 


; p p i nt f ( " 


\n 


" ) 


; peturn(79) 


; > 


\) 


(printf("80 


1 

1 


") 


? ECHO 


; p p i n t f ( " 


\n 


") 


; ret u pn ( 80 ) 


; > 


\: 


(printf("81 


1 

1 


") 


;echo 


; p r i n t f ( " 


\n 


") 


;peturn(81) 


; > 


\, 


(orint f ("82 


1 

1 


") 


; echo 


»printf(" 


\n 


") 


; ret u rn ( 82 ) 


; > 


\. 


(printf("83 


I 

1 


") 


;echo 


; o r i n t f ( " 


\n 


") 


;return(83) 


; } 


\' 


( p r i n t f ( " 84 


1 

1 


") 


;echo 


;printf(" 


\n 




;return(84) 


; > 


\= 


(ppintf ("85 


1 

1 


") 


;Echo 


; p p i n t f ( " 


\n 




; return (85) 


;> 


\< 


{ p r i n t f ( " 8 6 


1 

1 


") 


;ECH0 


;printf(" 


\n 


") 


/ return(86) 


; □ 


\> 


(printf("87 


t 

1 


") 


;echo 


;orintf(" 


\n 


m ) 


;return(87) 


; > 


\& 


(printf("88 


1 

1 


") 


;echo 


;printf(" 


\n 




; ret urn ( 88 ) 


; > 


\* 


(printf("89 


1 

1 


") 


;ECH0 


; print f (" 


\n 


") 


»return(89) 


; > 


\/ 


(opintf ("90 


1 

1 


") 


;echo 


;printf(" 


\n 




;petupn(90) 


; > 


\ : 


(printf ("91 


1 

1 


") 


;echo 


; p r i n t f ( " 


\n 




;peturn(91) 


; > 


\ + 


( p r i n t f ( " 9 2 


1 

1 


") 


? ECHO 


; p p i n t f ( " 


\n 


") 


;petupn(92) 


;} 


\- 


(ppintf ("93 


1 

1 


") 


;echo 


; pp i nt f ( " 


\n 


") 


;return(93) 


; ) 


{ i d> 


(orintf ("' 


54 


1 

1 


" ) ; ECHO; pri nt f ( 


H 


\n 


") ; return(54) ; > 



< n u it* > (printf("55 ! " ) ; ECHO ; p r i n t f ( " \n " ) ; re t u rn ( 55 ) ; a 
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-\-(t$\n]* ; /*delete comments*/ 

{charstr} {print f("56 ! ")?ECHO/printf(" \n" ) ? return(56) ; } 

[ \t\n] / /‘ignore b 1 an k s / 1 ab , new 1 i ne */ 

XX 

/* 

ma i n ( ) { 

int nextoken? 
nextoken = 1 ; 
while (nextoken 1= OH 

nextoken = yylexC)? 

} 

> 

*/ 
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APPENDIX B 



Ada/MCS 

The appendix is a listing of the four files that de- 
fine Ada/MCS. 

Ada. terms. mean 

This Portion of Appendix B is simply a listing of 
all the abbreviations used in forming the subset Ada/MCS. 
This file is not an input to YACC. 

aggr taggregate 
aoprox tapproximate 
assoc tassociation 
attri : at t r i but e 
char Icharacter 
chars icharacters 
comp Icomoonent 
cond : cond i t i on 
constr Iconstraint 
dec 1 : dec 1 arat i on 

def n tdef i ni t i on 
disc idiscrete 
enum Enumeration 
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exp : e x ponen t 



expr : express i on 

ext '.extent ion 

f ac : factor 

id : i dent i f i er 

i nt : i nteger 

iter : i terat i on 

lit : 1 i teral 

log : 1 ogi cal 

mod : modu 1 e 

mult : mu 1 t i D 1 y i ng 

num '.number 

obj : object 

op ioperator 

para tparameter 

pr i : or i mary 

prog tprogram 

re 1 : re 1 at i on 

relal trelational 

rest r : rest ri cted 

seq tsequence 

spec : spec i f i cat i on 

stmt rstatement 

stmts istatements 
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st r : st r i ng 
var : vari ao 1 e 
vis : v i s i b i 1 i t y 
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Ada. tokens Ada/MCS Ada.includelex 



These three files are concatenated to form the input 
to YACC. This input file provides YACC with the token 
values that will be returned frpm the scanner? the BNF gram- 
mar rules? and the actions to oe performed by the parser. 



X t oken 


' $ ’ 


0 


Xtoken 


ALL 


1 


Xtoken 


AND 


2 


Xtoken 


ARRAY 


3 


Xt oken 


ASSERT 


u 


Xtoken 


BEGIN 


5 


Xt oken 


BODY 


6 


Xtoken 


CASE 


7 


Xtoken 


CONSTANT 


8 


Xtoken 


ELSE 


9 


Xtoken 


ELSIF 


1 0 


Xtoken 


END 


1 1 


Xtoken 


EXIT 


12 


Xtoken 


FOR 


13 


Xtoken 


FUNCTION 


la 


Xtoken 


GOTO 


15 


Xtoken 


IF 


16 


Xtoken 


IN 


17 
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Xtoken 


IS 


18 


Xtoken 


LOOP 


19 


Xtoken 


MOD 


20 


%t oken 


NOT 


21 


Xtoken 


NULL 


22 


Xtoken 


OF 


23 


Xtoken 


OR 


24 


Xtoken 


OTHERS 


25 


Xt oken 


OUT 


26 


%t o ken 


PACKAGE 


27 


%token 


PROCEDURE 


28 


Xtoken 


RANGE 


29 


Xtoken 


RECORD 


30 


Xtoken 


RESTRICTED 


31 


Xtoken 


RETURN 


32 


Xt oken 


REVERSE 


33 


%t oken 


SEPARATE 


34 


Xtoken 


THEN 


35 


Xtoken 


TYPE 


36 


Xtoken 


USE 


37 


Xtoken 


WHEN 


39 


Xtoken 


WHILE 


50 


Xtoken 


X OR 


51 


Xtoken 


AND. THEN 


52 
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%t oken 


OR. ELSE 


53 


Xt oken 


i d 


54 


Xtoken 


num 


55 


Xtoken 


charSst p 


56 


Xtoken 


1 . — 1 
• • 


70 


Xtoken 


1 • 
• « 


7 l 


Xtoken 


1 => * 


72 


Xtoken 


•/=* 


73 


Xtoken 


* <= 1 


74 


Xtoken 


» >= • 


75 


Xtoken 


1 << 1 


76 


Xtoken 


1 >> 1 


77 


Xtoken 


1 • • 
9 


78 


Xtoken 


' ( * 


79 


Xtoken 


1 ) * 


80 


Xtoken 


• 1 1 
1 


81 


Xtoken 


t 1 

9 


82 


Xtoken 


1 t 

• 


83 


Xtoken 


• \* * 


84 


Xtoken 


« - t 


85 


Xtoken 


• < • 


86 


Xtoken 


• > « 


87 


Xtoken 


• 4 • 


88 


Xtoken 


• * • 


89 
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%token 



90 



%token ' / ' 


90 


Xtoken ' : ' 


91 


%t oken ' + ' 


92 


%token 

%% 


93 



compi 1 at i on$un i t : od t . v i s$ r es t r i c t i on . oot. SEPARATE 

un i t $body 



= {orintfC" 
ODt.visSrestriction.: 


J comp i 1 a t i onlun i t \n " ) 7 > 7 


= {printfC" 
! v i sS res t r i c t i on 


J opt.vis$reStriction.\n")7> 


= {printfC" 

OPt .SEPARATE . : 


J opt.visSrestriction.\n")7> 7 


= {printfC" 
! SEPARATE 


! opt .SEPARATE. \ n " ) 7 } 


= {pr i nt f C " 

dec 1 : ob j Sdec 1 


! opt .SEPARATE. \n")7> 7 


= {pr i nt f ( " 
! typeldecl 


! dec 1 \n " ) 7 > 


= {printfC" 


! dec 1 \n " ) 7 > 



! error = {printfC" ! Parse error\n")7> 7 

opt .CONSTANT. : 

= {printfC" } opt .CONSTANT. \n")7> 



! CONSTANT 



{ d r i n t f ( " 



! opt .CONSTANT. \n" );> 7 



opt .J.exor. : 



= (printfC ! opt. S. expr. \ n " ) 7 1 



! ' : = ' expr 

= (printfC ! opt. $. expr \ n " ) 7 } 7 

objSdecl: idSlist opt .CONST ANT . type opt. $. expr. 

= {printfC' ! objSdecl \n " ) 7 } 7 

fst . $ . id. • 

= (printfC' ! fst. $ . id. \ n ” ) 7 } 

! fst.S.id. '/' id 

= (printfC* 1 fst.S.id. \n");> 7 

idSlist: id fst. S. id. 

= (printfC ! idSlist \n")7> 7 

type : t ypeSnrar k 

= (printfC ! type \n")7> 7 
typeSdefn: enumS t ypeSde f n 

= (printfC" 1 typeSdefn \n")7> 

1 i nt StypeSdef n 

= (printfC" J typeSdefn \ n " ) 7 ) 

1 ar raySt ypeSde f n 

= (printfC" 1 typeSdefn \n");> 

J recordStypeSdef n 

= (printfC" ! typeSdefn \n")7> 7 

typeSmark: name 
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{ p r i n t f ( M 



! t ypeSmark \n " ) ? > } 



constr: rangeSconstr 

= {printfC" ! constr \n");o ; 
typeSdecl: TYPE id IS typeSdefn 

= {printfC" ! typeSdecl \n");> ; 
r angeSconst r : RANGE range 

= {printfC" ! rangeSconstr \n")?> > 

range: rangeSid simpleSexpr 

= {printfC" ! range \ n " ) 7 a ; 

rangeS id: id 

= {printfC" ! rangeSid \n");> 

! lit 

= {printfC" ! rangeSid \n");> ; 

f st .enumSl it.: 

= {printfC" ! f s t . enumS 1 i t . \n");> 

! f s t . enumS 1 i t . enumSlit 

= {printfC" ! f st .enumSl i t . \n");> ; 

enumS t ypeSde f n : * C * enumSlit f s t . enumS 1 i t . ')' 

= {printfC" ! enumSt ypeSde f n \n");> i 

enumS lit: id 

= {printfC" ! enumSlit \n");> 

! charSstr 

= {printfC" ! enumSlit \n");o ; 

intStypeSdefn: rangeSconstr 
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= {printfC" 

f st .S. i ndex . : 

= {printfC 
! f st . $ . i ndex . ' , ' 

= {printfC 
ar r ay $ t ypeSde f n : ARRAY '(' 
t ypeSma r k 

= {printfC 
index: discSrange 

= (pr i nt f ( M 
! typeSmark 

= {printfC 

discSrange: typeSmark RANGE 

= {pr i nt f ( " 
f st comp$ assoc . : 

= {orintf( H 
! f st . $ .compSassoc . 

= {printfC 

aggr: '(' compSassoc fst.S 

= {printfC 1 * 

fst choice. : 

= {printfC" 

! fst .S.choi ce. ' ! ' 

= {printfC" 



! i ntStypeSdef n \n");} ; 

! fst.S. index. \n")»> 
i ndex 

! fst.S. index. \ n " ) ; > ; 

index fst.S. index. ')' OF 

! arrayStypeSdef n \n");> ! 

! index \ n " ) » > 

! index \n");> ; 

range 

! discSrange \n");> i 

! fst .compSassoc . \n");> 

' t ' compSassoc 
! fst.S. compSassoc. \n");} ; 

.compSassoc . ' ) ' 

! aggr \n " ) ; > ; 

! f s t . $ .c ho i ce . \n");> 
choice 

fst.S. choice. \n")»> i 
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op t. . 1st. $. cho ice..$. expr.: 

? {pr i nt f ( " 

\n");> 

choice. '=>' 
= {pr i nt f ( M 

\n");> ; 



! opt . . 1 s t . 3 . cho i ce . . 
expr 

! opt . . 1st .S.choi ce. 



compSassoc: restrSchoice f s t . $ . c ho i ce . '=>' expr 

= {printfC ! compSassoc \n");> 

! pri opt. . 1st. $ . cho i c e . . $ . expr. 

= {printfC ! compiassoc \n");> ; 
res t r Sc ho i c e : discSrange 

= {printf( M ! rest rlchoice \n");> 

J OTHERS 

~ {printfC' ! restrSchoice \n");> ; 



choice: rangeSid 

= {printfC ! choice \n");> 

! restrSchoice 

= {printfC ! choice \n");> ; 
recordSt ypeSde f n : RECORD comoSlist END RECORD 

= {printfC ! recordStypeSdefn \n " ) ; 

f st .ob j Sdec 1 . : 



= {printfC ! f s t . ob j Sdec 1 . 
f s t . ob j Sdec J . objSdecl 

= {printfC" ! f s t . ob j Sdec 1 . 



\n")?> 



\n");> ; 



S . expr . 



. Sexpr . 
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compSlist: fst.oojSdecl 



= (printfC 

name: id 

= {pri nt f ( " 

I subprogSarraySvar 
= (printfC 
! se 1 ec t edScomp 

= {printf( M 
! p r ede f i nedSat t r i 
= {printf( M 

se 1 ec t ed$c omp : name id 

= (printfC 

predef i nedSat t ri : name 

= (printfC' 



! compSlist \ n " ) ? } > 

! name \n " ) ; > 

! name \n M ) ; > 

! name \n " ) ; > 

! name \n");> ; 

! se 1 ec t edScomp \n");} ; 

i d 

} p rede f i nedSa t t r i \n");a ; 



lit: num 



(printfC ! lit \n");> 



! char$st r 

= (printfC ! lit \n");> i 
var : name 1 . ' ALL 

= (printfC ! var \n")/> » 

f st .S.expr . : 

= (printfC J fst.S.expr. \n”);> 

' fst.S.expr. expr 

= (printfC ! fst.S.expr. \ n " ) ; > ; 
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subprogS a r ray $ v a r : name '(' expr fst .S.expp, ')' 

- {printfC" J subproglarraySvar \n");} ; 

opt.relalSoP.simpleSexpr.: 

= {printfC' ! op t . re 1 a 1 Sop . s i mo 1 eSexo r 



\n " ) ? } 



! relalSop simplelexpr 

= {printfC" ! opt . rel a 1 Sop . s i mp 1 eSexpr 

\n");> ; 
opt . NO T . : 

= <printf(" : opt. NOT. \n")!) 

! NOT 

= {printf (" ! opt. NOT. \n");> ; 



opt .const r . : 

= {printf C ! opt.constr. \n")?> 

J constr 

= {printf (" ! opt.constr. \n");o } 

rel : simpleSexpr op t . re 1 a 1 Sop . s i mo 1 e$expr . 

= {printfC" ! rel \n")?} 

' simoleSexpr opt. NOT. IN range 

= {printfC ! rel \ n " ) > } 

! simpleSexpr opt. NOT. IN typeSmark opt.constr. 
= {printfC' J rel \n");> ; 
expr: expr 1 ogSop rel 

= {printfC' ! expr \ n " ) ? > 
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! re 1 



= {printfC ! expr \n")J>? 

opt .unaryJoo. : 

= {printfC I opt .unarySop. \n M );> 

! unarylop 

= {printfC ! opt .unarySop. \n")»} ; 
f st .addi nglop.term.: 

= {printfC ! f s t . add i ngSoP . t e rm . \n");> 
' f s t . add i ng$ op . t erm . addingSop term 

= {printfC" ! f s t . add i ngSop . t e rm . \n");l 
simpleSexpr: opt .unarySop, term f s t . add i ngSop . t e rm . 

= {printfC" ! simpleSexpr \n")?> } 



f st .mu 1 t Sop . f ac . : 



= {printfC ! fst.multSop.fac. \n");> 

! fst.multSop.fac. multSop fac 

= {printfC" ! fst.multSop.fac. \n");o ; 
term: fac fst.multSop.fac. 

= {printfC" 1 term \n");> ; 



f ac : pr i 



pr i : lit 



! aggr 



{printfC" ! fac \n");> ; 



{printfC" ! pri \ n " ) ? > 



{printfC ! pri \n");> 
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I 

I 



name 





- 


{printfC 


J pri \n " ) ; 


} 


! var 












z 


{printfC 


! pri \n " ) ; 


> ; 


1 og Sop ! AND 












z 


{pri nt f ( " 


! log Sop \n " 


) ? > 


: or 












z 


{printfC 


{ 1 ogSop \n" 


) ; } 


; xor 












= 


{printfC" 


! 1 ogSop \n " 


);> ; 


re 1 a 1 Sod : ' = 1 












Z 


{printfC" 


! re 1 a 1 Sop 


\n " ) ; } 


J '/=’ 












Z 


{printfC" 


! re 1 a 1 Sop 


\n")?> 


: '<• 












Z 


{ o r i n t f C " 


1 re 1 a 1 Sod 


\n") ; > 


• ’<=■ 












z 


{printfC" 


! re 1 a 1 Sod 


\n");> 


! •>' 












= 


{printfC" 


! re 1 a 1 Sop 


\n");} 


; - >=- 












Z 


{printfC" 


! re 1 a 1 Sop 


\n") ; > 


addingSop: '+' 












z 


{printfC" 


J addingSop 


\n") ;a 
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I I . I 
I 



= {pr i nt f C 

: • &• 

= {pr i nt f ( 

unarySoo : ' + 1 

= { Dr i n t f C 

I I _ I 
I 

= {Dr i nt f ( 

! NOT 

= {orintfC 

mu 1 t Sod : ' * ' 

= {orintfC 

: '/• 

= {pr i nt f C 

! MOD 

= {or i nt f ( 

fst.stmt.: 

= <0 r i n t f ( 
! f st .stmt . stmt 

= {or i nt f ( 

seq$o f S s t mt s : fst.stmt. 

= {orintfC 
stmt: s i mp 1 e$s t m t 

= {orintfC 



II 



M 



It 



H 



1 add i ngSop \n " ) ; > 



! addingSop \n M );o ; 



! una rySop \n" ) ; > 



! unarySoo \n" ) ; } 



! una rySop \n " ) ; > ; 



! mult Sod \n " ) ; > 



! mult Soo \n " ) ; > 



! mu 1 t Sop \n " ) ; > ; 



! fst.stmt. \n") ; > 



1 fst.stmt. \n") ; } ; 



! seqSofSstmts \n H );> 



! stmt \n");a 
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! compoundSstmt 



= {printfC ! stmt \n");> 
! '<<' id ' >> * stmt 



= {printf( H ! 
! error ' ; ' = { p r i nt f ( 
simpleSstmt: ass i gnment $s t mt 

= {printfC ! 
! subProgJcal 1 Sstmt 

= {printfC ! 
! ex i t Sstmt 

= {printfC* ! 
! returnSstmt 

= {printfC* ! 
! gotoSstmt 

= {printfC* ! 
! assertlstmt 

= {printfC ! 



stmt \n");> 

"Parse error\n");> i 



simpleSstmt \n");> 



simpleSstmt \n" );> 



simpleSstmt \n");> 



s i mpl e$stmt \n" ) ? > 



simple$stmt \n")»o 



simpleistmt \n");> 



J NULL ' ; ' 



= {printfC" 

compoundSst mt : ifSstmt 

= {printfC" 
J caseSstmt 

= {printfC" 
J loopSstmt 



simpleSstmt \n");> ; 



compoundSstmt \n")»> 



CompoundSs t mt \n");) 
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= {printfC" ! compoundSstmt \ n " ) J } ; 

ass i gnmen t $s t m t : var ' expr 

s {printfC" ' assignmentSstmt \ n " ) } > 

! name ' : - * expr ' ; * 

= {printfC" ' assignmentSstmt \n")?> ; 
subprogSca 1 1 Sst mt : name '?' 

= {printf (" ! subprogSca 11 Ss tmt \n");> ; 

opt .expr . : 



= {printfC" 



opt. expr. \n" ) ; > 



! expr 

= {printfC" ! opt. expr. \n");> ; 

returnSstmt: RETURN opt. expr. 

= {printfC" ! returnSstmt \ n " ) ! > r 
fst. EL SIF. cond. THEN. seqSofSstmts.: 



= {printfC’ 

fst. ELSIF. cond. THEN. seqSofSstmts. \n " ) ; > 

' f s t . ELS IF . cond . THEN . seqSo f Ss t mt s . ELSIF cond 
THEN seqSofSstmts 



= {printfC' ! 

f s t . ELS I F . cond . THEN . seqSo f Ss t mt s . \n")?> ; 

opt. ELSE. seqSofSstmts.: 

= {printfC" I op t . ELSE . seqSo f Ss tm t s . 



\n")?> 



! ELSE seqSofSstmts 
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= {printfC" ! opt . ELSE . seqSo f 3s t m t s . 

\n");} ; 

ifSstmt: IF cond THEN seqSofSstmts 

fst.ELSIF.cond.THEN.seq3of$stmts. opt. ELSE. seqSofSstmts. 

END IF 

= {printfC" ! ifSstmt \n");> ; 

f st .condSext . : 

= {printfC' ! fst.condSext. \n" ) J } 

! fst.condSext. condSext 



= {printfC* ! 


fst.condSext. \n");> 


cond: expr fst.condSext. 






= {printfC' ! 


cond \n" 


)?> ; 


condSext: AND. THEN expr 






= {printfC* ! 


condSext 


\n");> 


! OR. ELSE expr 






= {printfC' ' 


condSext 


\n");> ; 


fst .WHEN. choi ce. . 1st .S.choi ce. 


.3. seqSofSstmts.: 



= (printfC' ! 

fst. WHEN. choice. .1st. 3. choice.. 3. seq3of$stmts. \n")?} 

1 fst. WHEN. choice.. 1st. S. choice.. S. seqSofSstmts. 

WHEN choice f s t . 3 . c ho i c e . ' => ' seqSofSstmts 

= {printfC* ! 

fst .WHEN. choi ce. . 1st .3. choi ce. .3. seqSofSstmts. \n");> ; 
caseSstmt: CASE expr OF 
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fst.WHEN. choice. .1st. 5. choice. .S.seq$of$stmts. END 



= {printfC* ! caseSstmt \ n " ) ; } ? 



opt . i t e rSspec . : 



= {printfC' ! opt . i t er $spec . \n");a 

! iterSspec 

= {printfC* ! opt . i t erSspec . \n");> 

loopistmt: opt . i terispec . basicSIoop 

= {printfC* ! loopistmt \n " ) ? } \ 



opt . i d . : 



! id 



= {printfC* 



opt .id. \n" ) ; > 



= {printfC* ! 
basicSIoop; LOOP seq$of$stmts 

= {printfC ! 



opt. id. \n") ; > ; 

END LOOP opt . i d . 
basicIlooP \n");> ; 



opt .REVERSE. : 



= {printfC* I opt. REVERSE. \n M );> 



! REVERSE 



= {printfC* ! 
iterSspec; FOR loopSpara IN 

= {printfC* ! 
! WHILE cond 

= {printfC ! 



opt. REVERSE. \n");> ; 
opt. REVERSE. discSrange 
i terSspec \n N ) ; > 

i t e r Sspec \n " ) ; > } 



loopSpara: id 



CASE 
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{printfC 



! loopSpara \n" ) ; } ; 



oDt .WHEN . c ond . : 



= {printfC ! opt .WHEN. cond. \n");> 

' WHEN cond 

= {printfC ! opt . WHEN . c ond . \n");> ? 

exitSstmt: EXIT opt. id. oo t . WHEN . c ond . 

= {printfC ! exitSstmt \ n " ) ; } ; 
gotoSstmt: GOTO id 

= {printfC ! gotoSstmt \n");> ; 
assertSstmt: ASSERT cond 

s iprintf C ! assertSstmt \ n " ) ? } > 

opt .use Sc 1 ause . : 



= {printfC* 
! useSclause 

= (printfC 



! opt .useSc 1 ause . \n");> 



! opt .useSc 1 ause . \n");> ; 



f st .dec 1 . : 






= (printfC 


! f st .dec 1 . 


\ n *' ) ; > 


! f st . dec 1 . dec 1 






= {printfC** 


! f s t . dec 1 . 


\n”);> ; 



f st .body . : 






= {printfC" 


! f st . body . 


\n") ;o 


J f st .body . body 






= (printfC" 


! f st .body. 


\n");> ; 



dec 1 arat i veSpar t : opt .useSc l ause . fst.decl. fst.body. 
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= (printfC" 

body: opt . v i s S rest r i c t i on * 

= (printfC 

unitSbody: subprogSbody 

= (printfC" 

! modSspec 

= (printfC 
! modSbody 

= (printfC 

opt . formal Spart . : 

= (printfC" 

! forma 1 ioar t 

= (printfC" 

OPt .RETURN. typeSmark. : 

= (printfC" 

! RETURN typelmark 
= (printfC" 

subprogSspec: subprogSnat u re 

opt. RETURN. typeSmark. 

= (printfC" 

subprogSnat ure : FUNCTION 

= (printfC" 

! PROCEDURE 

= (printfC" 



! dec 1 arat i veSpa r t \n");> ; 
uni t Sbody 
J body \n" ) ; > ; 

! unitSbody \n" ) ; > 

! unit Sbody \n " ) ; > 

! unitSbody \n");> » 

! opt . formal Spart . \n");} 

! op t . f o r ma 1 Spa r t . \n");> ; 

! op t . RE TURN . t ype Sma r k . \n");> 

! opt . RE TURN . t ypeSma r k . \n");> 

designator oot . formal Soart . 

! subprogSspec \n");} ; 

1 subprogSnature \n");> 

! subprogSnature \n");> 7 
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des i gnator : i d 



= <printf(" 
f st . i .pa raidec 1 . : 



designator \n H )»o t 



- {printf( H ! f s t . $ .par aidec 1 . \n")?> 

! f s t . i . pa r aidec 1 . paraidecl 

- {printf(" ! f s t . $ . pa raidec 1 . \n");> ; 

formalloart: '(' paraidecl f s t . I . pa r aidec 1 . ')' 

= <orintf(" ! formalipart \n");> } 

paraidecl: idllist mode typeimark opt.S.expr. 

= {printf(" ! paraidecl \n M );> ; 



opt . IN . : 



1 IN 



= { p r i n t f ( " 



Opt . IN . \n" ) ; > 



{pr intfC 



opt .IN. \n" ) ; > ; 



mode : opt . I N . 



; OUT 
: IN OUT 



subprogibody : subprogispec IS dec 1 arat i veipart BEGIN 

seqiofistmts END id 

= IprintfC" ! subprogibody \n");> ; 

opt.IS.declarativeioart.: 

= {printfC ! opt.IS.declarativeioart. 



\n")?> 



! IS dec 1 arat i veipart 
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= {printfC 

\n");> ; 

modSsDec: modlnature id 

opt .id. 

= {printfC' 
modSnature: PACKAGE 

= (printfC 

modSbody: modSnature BODY 
id ' ? ‘ 

= {printfC" 

opt.visSlist.: 

= {printf(" 

! v i sS 1 i s t 

= {printfC" 
v i sSrest r i c t i on : RESTRICTED 

= {printfC" 



! opt . IS.decI arat i veSpart . 

op t . I S . dec 1 a r a t i veSpa r t . END 

! mod$spec \n" ) ; > ; 

! modSnature \n");) ; 

id IS dec 1 arat i veSpart END 

! modSbody \n");> ; 

! opt.visSlist. \n");> 

! opt.visSlist. \n");> ; 
opt.visSl ist. 

! v i sS res t r i c t i on \n");> ; 



f s t . S . name . : 

= {printfC" ! fst.S.name. \n");> 

! fst.S.name. ' r ' name 

= {printfC" ! fst.S.name. \n");> ; 
visSHst: * C * name fst.S.name. ')' 

= {printfC" ! visSlist \n");> ; 
useSclause: USE name fst.S.name. 

= {printfC ! useSclause \n");} i 
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XX 

^include "lex.yy.c" 
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I 






APPENDIX C 



Parse Table 

This Appendix illustrates the output of the 
program used to manually interpret YACC's parse tables, 
file is produced using the v" option of YACC. 

state 0 

SaccePt : ♦■comp i 1 at i on$un i t Send 
OPt . v i sSres t r i c t i on . : «- (2) 

RESTRICTED shift 4 
. reduce 2 

comp i 1 at i on$un i t goto 1 
dpt . v i s $res t r i c t i on . goto 2 
visSrestriction qoto 3 

state 1 

Saccept : compi 1 at i on$un i t«-Send 

Send accept 
. error 

state 2 

compi 1 at ionSuni t 

opt .vi s$rest rict i on . «*op t .SEPARATE, uni tSbody 
OPt .SEPARATE. : «• (4) 

SEPARATE Shift 6 



YACC *. 
This 
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reduce 4 



opt . SEPAR A TE . goto 5 

state 3 

oot.visSrestriction. : vis$restriction<- (3) 

. reduce 3 

state 4 

v i sSres t r i c t i on : RESTR I C TED«-oo t . v i s $ 1 i s t . 

opt.visSlist. : *• (198) 

( shift 9 
. reduce 198 
opt.visSlist. goto 7 
visSlist goto 8 

state 5 

comoi 1 at i on$un i t : op t . v i s$ r es t r i c t i on . 

oPt . SEPARATE. «-uni t$body 

FUNCTION shift 18 
PACKAGE shift 17 
PROCEDURE shift 19 
. error 

un i t Sbody goto 10 
suDProgSbody goto 11 
modSspec goto 12 
modSbody goto 13 
subprogSspec goto 1 4 
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subprogSnature goto 16 
modSnature goto 15 

state 6 

opt .SEPARATE. : SEPARATE*- (5) 

. reduce 5 

state 7 

v i s $ r es t r i c t i on : RESTRICTED op t . v i s $ li s t . *• (200) 

. reduce 200 

state 8 

oPt.visSlist. : visll ist* (199) 

. reduce 199 

state 9 

visJlist : (<-name fst.S.name. ) 

id shift 21 
. error 
name goto 20 

suborog$ar raySvar goto 22 
sel ectedJcomp goto 23 
predef i nedSat t r i goto 29 

state 10 

compilationJunit t opt.visSrestriction. 

opt .SEPARATE . unitSbody*- (1) 

. reduce 1 

state 11 
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uni t Sbody 



subo rogSbody*- 



(172) 



. reduce 172 

state 12 

unitSbody : modSspec* (173) 

. reduce 173 

state 13 

unitSbody : moaSbody*- (174) 

. reduce 174 

state 14 

suborogSbody : subo rog$ soec<- 1 S dec 1 arat i veSoar t BE- 

GIN seqSof Sstmt s END id ! 

IS shift 25 
. error 

state 15 

modSsoec : modSnat u re** i d op t . I S . dec 1 a r a t i veSoa r t . 

END opt . i d . 

modSbody : mod$nature«*BODY id IS dec I arat i veJpart 

END id ; 

BODY shift 27 
id shift 26 
. error 

state 16 

subprogSspec : subprogSnat ure«*des i gnat or 

OPt.formalSpart. opt. RETURN. typeSmark. 
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id shift 29 



. error 

designator goto 28 

state 17 

modSnature : PACKAGE*- (19o) 

. reduce 196 

state 18 

suDDrogJnature : FUNCTION*- (180) 

. reduce 180 

state 19 

suborog$nat u re : PROCEDURE*- (181) 

. reduce 181 

state 20 

se 1 ec t edSc omp : name*-, id 

p r ede f i ned5a 1 1 r i : name*-' id 

suooroglar ray Jvar : name*-( expr fst.i.expr. 

visSlist : ( name*-f st .$ .name . ) 

fst.S.name. : «- (201) 

( shift 32 
. shift 30 
' shift 31 
. reduce 201 
fst.S.name. goto 33 

state 21 



87 



name : i d«* ( 58 ) 

. reduce 58 

state 22 

name : subprogJarraylvar*- (59) 

. reduce 59 

state 2 3 

name : se 1 ec t ed$comp«- (60) 

• reduce 60 

state 24 

name : p rede f i ned$at t r i <- (61) 

. reduce 61 

state 25 

suborogSbody : subprogSspec IS«-dec 1 arat i veSpart BE 

GIN seqSofSstmts ENO id '• 

opt . useSc 1 ause . : «- (164) 

USE shift 37 

. reduce 164 

opt . useSc 1 ause . goto 35 

useSclause goto 36 

dec 1 arat i veSpart goto 34 

state 26 

modSspec : modSnature i d«*opt . IS .dec 1 arat i veSpart 

ENO opt . i d . 

opt . IS. dec 1 arat i veSpart . : «* (193) 
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IS shift 39 



. reduce 193 

opt . IS. dec 1 arat i veSoart . goto 38 

state 27 

modSbody : modSnature BODY«-id IS dec 1 arat i veSoart 

END id ; 

id shift 90 
. error 

state 28 

subprogSsDec : subprogSnat ure 

designator«-opt, formal Soart. oot. RETURN, typeimark, 
opt . forma 1 Soart . : «- (175) 

( shift 4 3 

, reduce 175 

opt . formal ipart . goto 91 

formal-Spart goto 92 

state 29 

designator : i d«- (182) 

. reduce 182 

state 30 

se 1 ec t edJcomp : name .<-id 

id shift 99 
. error 

state 31 



89 



d rede f i nedSat t r i : name ' «■ i d 

id shift 45 
. error 

state 3 2 

subprogSar raySvar : name («-expr fst.S. expr. ) 

opt . unarySop. : «- (81) 

NOT shift 53 
+ shift 51 
- shift 52 
. reduce 81 
expr goto 46 
simoleSexpr goto 48 
rel goto 47 
opt .unarySop . goto 49 
unarySop goto 50 

state 33 

fst.S.name. i f s t . $ . name . » name 
visSlist : ( name f s t . $ . name . «* ) 

) shift 55 
r shift 54 
. error 

state 34 

suborogSbody : subprogSspec IS 

dec 1 a ra t i veSpa r t <-BEG I N segSofSstmts END id ; 
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BEGIN shift 56 



. error 

state 35 

dec 1 arat i ve$oar t : opt .useSc 1 ause .«-f st .aec 1 . 

f st .body . 

f st .dec 1 . : *■ (16b) 

. reduce 166 
f st .dec 1 . goto 57 

state 36 

opt . use $c 1 ause . : useJclause*- (165) 

. reduce 165 

state 37 

useiclause : USE«-name fst.S.name. 

id shift 21 
. error 
name goto 58 

suborogSar ray Svar goto 22 
se 1 ec t edScomp goto 23 
p rede f i ned$a t t r i goto 24 

state 38 

modSspec : modSnature id 

opt .IS.declarativeSpart .«-END opt . id. 

END shift 59 
. error 
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state 39 



oot . IS. dec 1 arat i veJoart . : IS«-dec 1 arat i velpart 

opt .useSc 1 ause . : «• (164) 

USE shift 37 

. reduce 164 

opt .use$c 1 ause . goto 35 

useSclause goto 36 

dec 1 arat i veSpart goto 60 

state 40 

modSbody : modSnature BODY id^IS dec 1 arat i veipart 

END id ; 

IS shift 61 
. error 

state 41 

suborogSspec : subprogSnat ure designator 

opt . formal $part .♦•opt .RETURN. typeSmark . 

OPt .RETURN . t ypeSmark . : «- (177) 

RETURN shift 63 
. reduce 177 

op t . RETURN . t ypeSma r k . goto 62 

state 42 

OPt . forma 1 Spar t . : formal Joart«- (176) 

. reduce 176 

state 43 
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forma I Soart 



(♦-oaraSdec l f st . $ .oaraSdec i . ) 



state 



state 



state 



state 



id shift 86 
. error 

i d$ 1 i st goto 65 
paraidecl goto 64 

44 

se 1 ec t edScomp : name . i d«- (62) 

. reduce 62 

45 

predef i nedSat t r i : name ' i d<- (63) 

. reduce 63 

46 

suborogJarraySvar : name ( exor^f st .i 

expr : expr«-log$op rel 

fst.S.expr. : <■ (67) 

AND shift 69 
OR shift 70 
XOR shift 71 
. reduce 67 
fst.S.expr. goto 67 
logSoo goto 68 

47 

expr : re 1 <- (80) 

. reduce 80 



expr . ) 



j 
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state 48 



rel : simpl e$e*Dr<-opt . rel al Soo.simpl eiexpr. 

pel : s i mp 1 eSexp r *-opt . NOT . IN range 

rel : s i mp 1 eSexpr«*opt . NOT . IN typeSmark opt.constr. 

opt . re 1 a 1 Sop . s i mp 1 eSexpr . : «■ (70) 

opt .NOT . : «■ (72) 

IN reduce 72 
NOT shift 75 
/? shift 77 
<= shift 79 
>= shift 81 
= shift 76 
< shift 78 
> shift 80 
. reduce 70 

opt . re 1 a 1 Sop . s i mp 1 eSexpr . goto 72 
relalSop goto 74 
opt. NOT. goto 73 

state 49 

simoleSexpr : od t . unary Sop .♦■ t e rm f s t . add i ngSop . t e rm . 

id shift 21 
num shift 89 
charSst r shift 90 
( shift 91 
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error 



name goto 87 
lit goto 85 
aggr goto 86 
pri goto 84 

subprogJarray$var goto 22 
se 1 ec t edicomp goto 23 
prede f i ned$a t t r i goto 24 
var goto 88 
term goto 82 
fac goto 83 

state 50 

opt . unary $op . : unarySop* 

. reduce 82 

state 51 

unarySop i (106) 

. reduce 106 

state 52 

unarySop : •«* (107) 

. reduce 107 

state 53 

unaryiop i NOT*- (108) 

. reduce 108 

state 54 



(82) 
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fst.S.name. 5 fst.S.name. /♦•name 
id shift 21 
. error 
name goto 92 

subprogSar raySvar goto 22 
se 1 ec t edScomp goto 23 
prede f i nedSa t t r i goto 24 

state 55 

visSlist : ( name fst.S.name. )«• 

. reduce 203 

state 56 

subcrogSbody : suborogSsoec IS 

BEGIN«-seqSo f $s t mt s END id i 

fst.stmt. : «- (112) 

. reduce 1 1 2 
fst.stmt. goto 94 
seqSofSstmts goto 93 

state 57 

fst.decl. : f st .dec 1 .«-dec 1 

dec 1 arat i veSpart : 

fst .decl ,«-fst .body. 

fst.body. : *• (168) 

error shift 99 
TYPE shift 101 



(203) 



dec I arat i veSoart 



opt .use$c 1 ause. 
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id shift 60 



. reduce 168 
dec I goto 95 
objSdecl goto 97 
typeSdecl goto 98 
i d$ 1 i s t goto 100 
f s t .body . goto 96 

state 58 



se 1 ec t edlcomp : name*-, id 

p rede f i nedJa 1 1 r i : name*- 1 id 

subo r ogSa r r ay $ v a r : name*-( expr 

useSclause : USE name*-fst ,$,name 

f s t . $ . name . : «- (201) 

( shift 32 
. shift 30 
' shift 31 
. reduce 201 
fst.S.name. goto 102 



f s t . $ . expr . 



) 



state 59 



modSspec i modJnature id opt . IS .dec 1 arat i veipart . 

END*-opt .id. 

opt .id.:*- ( 151 ) 

id shift 104 
. reduce 151 
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oot . i d 



goto 103 



state 60 

opt.IS.declarativeSpart. 

(194) 



. reduce 194 



IS dec 1 arat i veJpart*" 



state 61 

modSbody : modSnature BODY id IS«-dec 1 arat i veipart 

END id ? 

opt . use$c 1 ause . : <* (164) 

USE shift 37 

. reduce 164 

opt .use$c 1 ause . goto 35 

useSclause goto 36 

dec 1 a rat i velpa rt goto 105 

state 62 

subProgSspec : subprogSnature designator 

opt . f o rma 1 $pa r t . opt . RETURN . t ypeSma rk . «■ (179) 

. reduce 179 

state 63 

oot . RETURN . t ypeSma rk . : RETURN*- 1 ypeSma r k 

id shift 21 
. error 

typeSmark goto 106 
name goto 107 
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suborog$ar ray $var goto 22 
se 1 ec t edJcomp goto 23 
prede f i ned$at t r i goto 2 4 

state 64 

formalSpart : ( DaraJdec 1 «■ f s t . $ . pa raidec 1 . ) 

f st . $ .paraldec 1 . : «- (183) 

. reduce 183 

f s t . $ . pa r a$dec 1 . goto 108 

state 65 

paraSdecl : idSlist*-: mode tyoeSmark oot.S.expr. 

: shift 109 

. error 

state 66 

idSlist : id«-f st .S. i d. 

fst.J.id. : <- (14) 

. reduce 14 
fst.S.id. goto 110 

state 67 

fst.S.expr. : fst.S.exor.*-, expr 

suborogSar raySvar : name ( expr f s t . S . expr . «- ) 

) shift 112 
, shift 111 
. error 

state 68 
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expr 



expr log$op*-re1 



state 



state 



state 



state 



state 



oot .unaryioo . : *• (81) 

NOT shift 53 
+ shift 51 
- shift 5 2 
. reduce 81 
simoleiexpr goto 48 
re 1 goto 113 
opt . unary $ od . goto 49 
unarySop goto 50 

69 

1 o g $ o d : A N D ♦* (94) 

. reduce 94 

70 

1og$oo : OR*- (95) 

. reduce 95 

71 

] ogSoo : X0R«- ( 96 ) 

• reduce 96 

72 

rel : simpleSexpr opt . rel a 1 $op . s i mp I eiexpr (7o) 

. reduce 76 

73 

rel : simpleSexpr opt. NOT. ♦•IN range 
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rel : simpleSexpr opt.NOT.*-IN typeSmark opt .const r. 

IN shift 1 1 4 
. error 

state 7 4 

op t . r e 1 a 1 Sop . s i mp 1 e$e xp r . : re 1 a 1 $op«*s i mp 1 eS e xp r 

oPt .unarySoP. : «■ (81) 

NOT shift 53 
+ shift 51 
- shift 52 
. reduce 81 
simpleSexpr goto 115 
opt . una ry Sop . goto 49 
unarySoP goto 50 

state 75 

opt. NOT. : NOT*- (73) 

. reduce 73 

state 76 

re 1 a 1 Sop : -*• ( 97 ) 

* reduce 97 

state 77 

re 1 a 1 Sop : /-*• ( 98 ) 

. reduce 98 

state 78 

re 1 a 1 Sop : <♦• ( 99 ) 
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reduce 99 



state 79 

rel al Sop : <=«* (100) 

. reduce 100 

state 80 

re 1 a 1 Sop : ><- (101) 

. reduce 101 

state 81 

re 1 a 1 Sop : >-*• (102) 

. reduce 102 

state 82 

simoleSexpr : opt . unary Sop . t e rm«- f s t . add i rtgSop . t erm . 

fst .addi ngSop. term. : «- (83) 

. reduce 83 

fst .addi ngSop. term. goto 116 

state 83 

term : f ac «-f s t .mu 1 t Sop . f ac . 

f s t . mu 1 t Sop . f ac . t *• (8b) 

. reduce 86 

f st .mul tSop. f ac . goto 117 

state 84 

f ac : pr i «- ( 89 ) 

. reduce 89 

state 85 
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pri : lit* (903 

. reduce 90 

state 86 

pri : aggr* (91) 

. reduce 91 

state 87 

se 1 ec t edScomp : name*, io 

p rede f i ned$a t t r i : name*' id 

var : name*. ALL 

subProg$array$var : name*( expr fst.S.expr. ) 

pri : name* (92 ) 

( shift 32 
. shift 118 
' shift 31 
. reduce 92 

state 88 

pri : var* (93) 

. reduce 93 

state 89 

lit : num* ( 64 ) 

. reduce 64 

state 90 

lit : charSst r* (65) 

. reduce 65 
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state 91 



aggr : (**00010233500 f st . 2 .compSassoc . ) 

OTHERS shift 123 
id shift 21 
num shift 89 
charSstr shift 90 
( shift 91 
. error 

typeSmark goto 125 
name goto 124 
lit goto 85 
discSrange goto 122 
compSassoc goto 119 
aggr goto 86 
restrSchoice goto 120 
pri goto 121 

subprogSar ray Svar goto 22 
se 1 ec t edScomp goto 23 
predef i ned$at t r i goto 24 
var goto 88 

state 92 

se 1 ec t edScomp : name*-, id 

predef i ned$at t r i : name*-' id 

subProgSarray Svar : name«-( expr fst.S.expr. ) 
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fst.S.name. : fst .S.name. # name*- (202) 

( shift 32 
. shift 30 
* shift 31 
. reduce 202 

state 93 

suborogSbody : subDroglspec IS dec 1 arat i velpart BE- 

GIN seq$o f Ss t mt s<-END id } 

END shift 126 
. error 

state 94 

fst.stmt. : fst .Stmt .♦•stmt 

seqSofSstmts : fst.stmt.*- (114) 

opt . i t erSspec . : «• (148) 

error shift 131 

ASSERT shift 147 

CASE shift 149 

EXIT shift 144 

FOR shift 152 

GOTO shift 146 

IF shift 148 

LOOP reduce 148 

NULL shift 138 

RETURN shift 145 
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WHILE shift 153 



id shift 21 
<< shift 130 
. reduce 1 1 4 
name goto 143 
subprogJar ray $var goto 22 
se 1 ec t ed$comp goto 23 
prede f i ned$a t t r i goto 24 
var goto 142 
stmt goto 127 
simple$stmt goto 128 
COmpoundSs tmt goto 129 
ass i gnmen t Ss t m t goto 132 
subDr ogSc a 11 $s t m t goto 133 
exitSstmt goto 134 
returnSstmt goto 135 
gotoSstmt goto 136 
assertSstmt goto 137 
ifJstmt goto 139 
caseSstmt goto 140 
loooSstmt goto 141 
opt . i terSspec . goto 150 
i terSspec goto 151 

state 95 



106 



fst.decl. : fst.decl. decl*- (167) 

. reduce 167 

state 96 

fst.body. : f st . body .♦•body 

dec 1 arat i ve$Da r t : oot . useSc 1 ause . fst.decl. 

f st .body . +• (170) 

opt . v i s$rest r i c t i on . : «- (2) 

BEGIN reduce 170 
END reduce 170 
RESTRICTED shift U 
. reduce 2 

opt . v i s $ res t r i c t i on . goto 155 
v i s$res t r i c t i on goto 3 
body goto 159 

state 97 

decl : objSdecl*- (6) 

. reduce 6 

state 98 

decl : type$decl«- (7) 

. reduce 7 

state 99 

decl ; error*-; 

; shift 156 

. error 
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state 100 

objSaecI : id$1ist«*: opt . CONST ANT . type opt. S.expr. 

9 

: shift 157 

. error 
state 101 

typeSdecl : TYPEHd IS typeSdefn ; 

id shift 158 
. error 
state 102 

fst.S.name. : f s t . $ . name . ♦* > name 
useSclause : USE name f s t . $ . name . «■ (204) 

f shift 54 
. reduce 204 
state 103 

modSspec 5 modSnature id opt . IS .dec 1 arat i veSoart . 
END opt . i d . (195) 

. reduce 195 
state 104 

opt . i d . : i d«- (152) 

. reduce 152 
state 105 

modSbody : modSnature BODY id IS 

dec 1 arat i veSpa rt«-END id i 
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END shift 159 



. error 
state 106 

ODt. RETURN. tyoeS mark. : RETURN typeSmark«- (178) 

. reduce 178 
state 107 

typeSmark : name*- (22) 

se 1 ec t edScomp : name*-, id 

predef i nedSat t r i : name*-' id 

subProgiarraySvar : name«-( expr fst.S. expr. ) 

( shift 32 
. shift 30 
1 shift 31 
. reduce 22 
state 108 

f s t . S . pa r a$dec 1 . : f st .J.paraSdecl .<-> paraSdecl 

formalipart : ( paraSdecl f s t . $ . pa r aidec l . *• ) 

) shift 161 
, shift 160 
. error 
state 109 

paraSdecl : idSlist :*-mode typeSmark opt. S. expr. 

opt . IN. : «* (187) 

IN shift 165 
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OUT shift 164 



. reduce 187 
mode goto 162 
opt .IN. goto 163 
state 110 

fst.S.id. : fst.S.id.**/ id 

idSlist : id fst.S.id.*- (16) 

t shift 166 
. reduce 16 
state 111 

fst.S.expr. : fst.S.expr. ,«-expr 

opt .unaryiop . : *■ (81) 

NOT shift 53 
+ shift 51 
- shift 52 
. reduce 81 
expr goto 167 
simoleSexpr goto 48 
rel goto 47 
oot .unarySop. goto 49 
unarySop goto 50 
state 1 12 

subprogJarraySvar : name ( expr fst.S.expr. ) *• 

(69) 



1 10 



reduce 69 



state 113 

expr : expr logSop rel* - (79) 

. reduce 79 
state 1 14 

rel : simoleSexpr opt. NOT. IN«-range 

rel : simoleSexpr opt. NOT. IN*-tyoeSmark opt.constr. 

id shift 171 
num shift 89 
charSst r shift 90 
. error 

typeSmark goto 169 
name goto 107 
range goto 168 
rangeS i a goto 170 
lit goto 172 

suborogSar raySvar goto 22 
se I ec t edScomp goto 23 
prede f i nedSat t r i goto 24 
state 115 

opt . re 1 a 1 Sop . s i mp 1 eSe xpr . : relalSop s i mpl eSexpr*- 

(71) 

. reduce 71 



state 116 



fst .addingSop.term 



fst.adding$oP.term.*adding$oo 



term 

simoleSexpr : opt . una rySop . 

f st .addi nglop. term.«- (85) 

& shift 176 
+ shift 17a 
- shift 175 
. reduce 85 
addingSop goto 173 
state 117 

f st .mul t$op. f ac . : f st .mul t$op. f ac .<-mul tSop fac 

term : fac f s t . mu 1 t $op . f ac . *• (88) 

MOD shift 180 
* shift 178 
/ shkf u 179 
. reduce 88 
mu 1 t Sop goto 177 
state 118 

se 1 ec t edScomp : name .«-id 

var : name .<-ALL 

ALL shift 181 

id shift a a 

. error 
state 119 



term 
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state 



state 



state 



state 



aggr : ( comDfassoc«-f st . S.compSassoc . ) 

fst.$.comD$assoc. : <- (41) 

. reduce 41 

f st . $ * c ompSassoc * goto 182 
120 

compSassoc : res t r Sc ho i ce*-f s t . $ . cho i ce . => 

f st choice. : «- (44) 

. reduce 44 
f s t . S . c ho i c e . goto 183 
121 

comoiassoc : pr i «-oot . . 1 s t . $ . cho i ce . . S . expr 

opt . . 1 s t . $ .c ho i ce . . S . expr . : <- (46) 

f st . $ . c ho i ce . : *■ (44) 

) reduce 46 
r reduce 46 
. reduce 44 
f s t . $ . c ho i ce . goto 185 
opt . . 1 s t . $ .c ho i ce . . $ . expr . goto 184 
122 

restrSchoice : disc$range«- (50) 

. reduce 50 
123 

restrSchoice : OTHERS*- (5q) 

. reduce 51 



expr 
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state 1 2U 



typeimark : name* (22) 

se 1 ec t edScomp : name*, id 

p rede f i nedS a t t r i : name* 1 id 

van : name*. ALL 

subprogJarraylvar : name*( expr fst.B.expr. ) 

pri : name*- (92) 

RANGE reduce 22 
( shift 32 
. shift 118 
' shift 31 
. reduce 92 
state 125 

discSrange : t ypeSma r k«-RANGE range 

RANGE shift 186 
. error 
state 126 

subprogSbody : subprogJspec IS decl arat i veSpart BE- 

GIN seq$of$stmts END*-id ; 
id shift 187 
. error 
state 127 

fst.stmt. : fst.stmt. stmt*- (113) 



reduce 113 



state 128 



stmt : simpleSstmt*- (115) 

. reduce 115 
state 129 

stmt : compoundSstmt*- (116) 

. reduce 116 
state 130 

stmt : <<<-id >> stmt 

id shift 188 
. error 
state 131 

stmt : error*-; 

; shift 189 
. error 
state 132 

simpleSstmt t ass i gnmen t $ s t m t «* 

. reduce 1 19 
state 133 

simpleSstmt : subp rog$c a 1 1 $ s t m t «• 

. reduce 120 
state 134 

simpleSstmt ! exitSstmt*- (121) 
, reduce 121 
state 135 



( 119) 



( 120 ) 
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s i mo 1 eSstmt 



r et u rn$s t mt <- 



( 122 ) 



state 



state 



state 



state 



state 



state 



state 



. reduce 122 

136 

simpleistmt : goto$stmt«- (123) 

. reduce 123 

137 

simpleSstmt : asse r t $s t m t «- (12a) 

. reduce 12a 

138 

simple$stmt : NULL<*? 

/• shift 190 
. error 

139 

CompoundSstmt : if$stmt<- (126) 

. reduce 126 

iao 

compound$st mt : case$stmt<- (127) 

. reduce 127 

l a i 

compoundSst mt : loopSstmt*- (128) 

. reduce 128 

ia2 

ass i gnment $st mt : var«-: = expr ; 

: ? shift 191 



1 16 



error 



state 1 4 3 



se 1 ec t edScomp : name*-, id 

predef i ned$at t r i : name*-' id 

var : name*-. ALL 

subprogSarrayivar : name<-( expr fst.S.expr. ) 

ass i gnmen t $s t m t : name<-:= expr ? 

subprogScal 1 $stmt : name*-? 

: = shift 192 
; 3h i f t 193 
( shift 32 
. shift 118 
' shift 31 
. error 
state 149 

exitSstmt : EX I T*-oPt . i d . opt . WHEN . cond . ? 

opt.id. : *- (151) 

id shift 104 
. reduce 151 



opt.id. goto 194 
state 145 



returnSstmt : RETURN*-oPt . expr . ? 

opt . expr . : *• (132) 

opt .unarySop. : *- (81) 
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NOT 



shift 53 



; reduce 132 
+ shift 51 

- shift 52 

. reduce 81 
expr goto 196 
simpl e$exor goto 48 
rel goto 47 
opt . una ry Sop . goto 49 
unarySop goto 50 
oot.expr. goto 195 
state 146 

gotoSstmt : G0T0<-id ? 

id shift 197 
* error 
state 147 

assertSstmt : ASSERT^cond 

opt . una r y Sop . : <- (81) 

NOT shift 53 
+ shi ft 51 

- shift 52 

. reduce 81 
expr goto 199 
simoleSexpr goto 48 
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rel goto 47 
opt . unarySop . goto 49 
unarylop goto 50 
cond goto 193 
state 148 

ifSstmt i IF«-cond THEN seqSofSstmts 

fst.ELSIF. cond. THEN. seqSofSstmts. opt. ELSE. seqSofSstmts. END 
IF ; 

opt . unarySop . : * (81) 

NOT shift 53 
* shift 51 
- shift 52 
. reduce 81 
expr goto 199 
simoleSexpr goto 48 
rel goto 47 
opt .unarySop. goto 49 
unarylop goto 50 
cond goto 200 
state 149 

caseSstmt : CASE*-expr OF 

f s t . WHEN . c ho i ce . . 1 s t . $ . cho i c e . , $ . seqSo f Ss t m t s . END CASE 
opt . una ry Sop . : «* (81) 

NOT shift 53 
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+ shift 51 



- shift 52 
. reduce 81 
expc goto 201 
s i mo 1 eJexor goto 48 
rel goto 47 
opt . una ry$op . goto 49 
unarylop goto 50 
state 150 

loopSstmt : opt . i t erJspec . *bas i c $ 1 oop 

LOOP shift 203 
. error 

basicSloop goto 202 
state 1 5 1 

opt . i terSspec * : iterSspec* (149) 

. reduce 149 
state 152 

iterispec : FOR* 1 oopJ pa r a IN opt. REVERSE. discSrange 

id shift 205 
. error 

loopSoara goto 204 
state 153 

iterSspec : lNHlLE*cond 

opt .unarylop. : * (81) 
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NOT shift 53 



+ shift 51 
• shift 52 
. reduce 81 
expr goto 199 
simpleSexpr goto 98 
rel goto 97 
opt .unary$op. goto 99 
unarySop goto 50 
cond goto 206 
state 159 

fst.body. : fst.body. body*- (169) 

. reduce 169 
state 155 

body : opt . v i s$ rest r i c t i on . *-un i t Sbody 

FUNCTION shift 18 
PACKAGE shift 17 
PROCEDURE shift 19 
. error 

unitSbody goto 207 
subprogSbody goto 11 
modSspec goto 12 
modSbody goto 13 
subprogSspec goto 19 
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state 



state 



state 



state 



END«- i d 



state 



subproginature goto 16 
modSnature goto 15 

156 

decl : error ; *■ (8) 

. reduce 8 

157 

objSdec! : i dS list : «-opt . CONS T ANT . 

opt .CONSTANT. : «- (9) 

CONSTANT shift 209 
. reduce 9 

OP t . CONS T ANT . goto 208 

158 

typeSdecl : TYPE id«-IS typeSdefn ; 

IS shift 210 
. error 

159 

modSbody : modSnature 80DY io IS 

id shift 211 
. error 

160 

f s t . $ .pa r aSdec 1 . : f s t . S . pa r aSdec 1 

id shift 66 
. error 



type opt.S.expr. 



dec 1 arat i veSpart 



. ;*-para$decl 
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state 

(185) 

state 



state 

state 

state 



i d$ 1 i st goto t>5 
oaraSdecl goto 21 2 
161 

formalSpart : ( paraSdecI f st . $ . pa ra$dec 1 . ) «- 

. reduce 185 
162 

paraSdecl : idSlist : modest ypeSma rk oot.S.expr. 

id shift 21 
. error 

type$mark goto 213 
name goto 107 
suborogSar raySvar goto 22 
se 1 ec t edScomp goto 23 
predef i nedSat t r i goto 24 

163 

mode : opt.IN.«- (189) 

. reduce 189 

164 

mode : OUT*' (190) 

. reduce 190 

165 

opt. IN. : IN*- (188) 

mode : IN«-0UT 
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OUT shift 214 



. reduce 188 
state 166 

fst.S.id. : fst.S.id. r«-id 

id shift 215 
. error 
state 167 

fst.S.expr. : fst.S.expr. , expr* (68) 

expr : expr*log$op rel 

AND shift 69 
OR shift 70 
XOR shift 71 
. reduce 68 
logiop goto 68 
state 168 

rel : simpleSexor opt. NOT. IN range* (77) 

. reduce 77 
state 169 

rel t simpleSexpr opt. NOT. IN t ype$ma r k*op t . c ons t r . 
opt .const r . J * (74) 

RANGE shift 219 
. reduce 74 
constr goto 217 
rangeSconstr goto 218 
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oot .const r 



goto 216 



state 170 

range : range$id«-.. siopleSexpr 

.. shift 220 
. error 
state 171 

rangeSid : i d«- (27) 

name : i d«- (58) 

. . reduc e 27 
=> reduce 27 
! reduce 27 
. reduce 58 
state 172 

range! i d : 1 i t «- ( 28 ) 

. reduce 28 
state 173 

f st .addi ng$op. tero. : f s t . add i ngloo . t e r m . 

addi ng$op«-t erm 

id shift 21 
num shift 89 
CharSstr shift 90 
( shift 91 
. error 
name goto 87 
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lit goto 85 



aggr goto 8b 
pri goto 84 

subprog$array$var goto 22 
se 1 ec t edScomp goto 23 
predef i nedSat t r i goto 24 
var goto 88 
term goto 221 
fac goto 85 
state 174 

addingSop : +<- (105) 

. reduce 105 
state 175 

addingSop : -«• (104) 

• reduce 104 
state 17b 

addingSop : &<- (105) 

. reduce 105 
state 177 



f s t . mu 1 t Sop . f ac . : f st .mul tSop. fac . 

id shift 21 
num shift 89 
charSst r shift 90 
( shift 91 



mu 1 t $op«- fac 



12b 



error 



name goto 87 
lit goto 85 
aggr goto 86 
pri goto 84 

subprogSarraySvar goto 22 
sel ec t edScomp goto 23 
prede f i nedSat t r i goto 24 
var goto 88 
fac goto 222 
state 178 

mult Sop : ** (109) 

. reduce 109 
state 179 

mu 1 t Sop : /* (110) 

. reduce 110 
state 180 

multSoo : MOD* (111) 

. reduce 111 
state 181 

var : name . ALL* (66) 

. reduce 66 
state 182 

f s t . $ . compSassoc . : f st . $ . compSassoc .** compSassoc 
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aggr : ( comoSassoc f s t . $ . c omp$as soc . «• ) 

) shift 224 
t shift 223 
. error 
state 193 

f s t . S .cho i ce . : f s t . $ .c ho i ce . «• ! choice 

compSassoc : restrSchoice f s t . $ .c ho i ce .«■=> expr 

=> shift 226 
! shift 225 
. error 



state 184 

compiassoc : pri opt . . 1 s t . S . c ho i c e . . 5 . e xd r . «- (49) 

. reduce 49 
state 185 

fst.S. choice. : fst.S. choice. «-! choice 

oot . . 1 st . $ . c ho i c e . . $ . e xp r . : f s t . $ .cho i ce •«■?> expr 

=> shift 227 
! shift 225 
. error 
state 186 



discSrange : typeSmark RANGE«-range 

id shift 229 
num shift 89 
char$str shift 90 
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error 



range goto 22 8 
ranges id goto 17 0 
lit goto 172 
state 187 

subprogSbody : subprogSspec IS dec 1 arat i veSpar t BE- 

GIN seqSo f Ss t m t s END id*-; 

? shift 230 
. error 
state 188 

stmt : << i d*->> stmt 

>> shift 231 
. error 
state 189 

stmt t error (118) 

. reduce 1 1 8 
state 190 

simpleSstmt ; NULL ; (125) 

. reduce 125 
state 191 

as s i gnmen t Ss t m t : var :=«-expr ; 

opt .unarySop. : *- (81) 

NOT shift 53 
+ shift 51 
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shift 52 



. reduce 81 
expp goto 232 
simdeSexpr goto 48 
re) goto 47 
opt .unaryJoP. goto 49 
unaryJop goto 50 
state 1^2 

ass i gnment Sstmt : name :=«-expr ; 

opt .unarylop. : «• (81) 

NOT shift 53 
+ shift 51 
- shift 52 
. reduce 81 
expr goto 233 
simp)e$expr goto 48 
rel goto 47 
opt .unaryJoP. goto 49 
unaryiop goto 50 
state 193 

suborogSca 1 1 Sstmt : name i *■ (131) 

. reduce 131 
state 19a 

exitSstmt : EXIT op t . i d . «*op t . WHEN . cond . 
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op t . ftHEN . c ond . : *■ (159) 

WHEN shift 235 
. reduce 159 
opt . WHEN . cond . goto 239 
state 195 

return$stmt : RETURN oot.expr.*-; 

; shift 236 
. error 
state 196 

expr : expr*-log$op rel 

opt.exor. : expr*- (133) 

AND shift 69 
OR shift 70 
XOR shift 71 
. reduce 133 
1 og$op goto 68 
state 197 

gotolstmt : GOTO id*-; 

? shift 237 
. error 
state 198 

assert Sstrnt : ASSERT cond*-; 

; shift 238 
. error 
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state 199 



exor : expr«*log$op rel 

cond : expr*-fst .condSext . 

f st .condSext . : *■ (140) 

AND shift 69 
OR shift 70 
XOR shift 71 
. reduce 140 
1 og$oo goto 68 
f st .condSex t . goto 239 
state 200 

ifSstmt : IF cond«-THEN seqSo f $s t m t s 

f s t . ELS IF . cond . THEN . seq$o f $s t ot s . opt . ELSE . seqio f is t mt s . END 
IF ; 

THEN shift 240 
. error 
state 201 

exor : expr«-log$op rel 

caseSstmt : CASE exor«-OF 

f st . WHEN . cho i ce .. 1 st . J . cho i ce seqJo f $s t mt s . END CASE 



AND 


shift 


69 


OF 


shift 


241 


OR 


shift 


70 


XOR 


shift 


71 
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error 



logSoo goto 68 
state 202 

loopSstmt : opt.iterSspec. basicSloop*- (150) 

. reduce 150 
state 203 

basicSloop : L00P«-seqSo f $s t mt s END LOOP opt. id. ; 

fst.stmt. : *■ (112) 

. reduce 1 1 2 
fst.stmt. goto 94 
seqSofSstmts goto 242 
state 204 

iterSspec : FOR 1 oopSpara^IN opt. REVERSE. discSrange 

IN shift 243 
. error 
state 205 

loop$para : i d«* (158) 

. reduce 158 
state 206 

iterSspec : WHILE cond«* (157) 

. reduce 157 
state 207 

body : opt . v i sSres t r i c t i on . unit$body«- (171) 

. reduce 171 
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state 208 



ot> j $dec 1 : idSlist : oot . CONSTANT ,*t yoe opt .I.expr. ; 

id shift 21 
. error 
type goto 244 
typeSmark goto 245 
name goto 107 
subprogSarrayJvar goto 22 
se 1 ec t edScomp goto 23 
prede f i ned$a t t r i goto 24 
state 209 

opt .CONSTANT. : CONSTANT* (10) 

. reduce 10 
state 210 

typeSdecl : TYPE id IS*type$defn ; 

ARRAY shift 253 
RANGE shift 219 
RECORD shift 254 
( shift 251 
. error 

typeSdefn goto 246 
enum$t ypeSde f n goto 247 
i nt $t ype$de f n goto 248 
ar rayStypeSdef n goto 249 
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rec or d$ t ypeSae f n goto 250 
rangeiconstr goto 252 
state 21 1 

modSbody : modSnature BODY id IS dec 1 arat i veSpart 

END id*? 

? shift 255 
. error 
state 212 

f s t . $ . pa raSdec 1 . : f st .S.oaraSdec 1 . » paraSdecl* 

(184) 

. reduce 184 
state 213 

paraSdecl : idSlist : mode t ypeSma r k*oot .S.expr. 

opt.S.expr. : * (11) 

:= shift 257 
. reduce 11 
opt.S.expr. goto 256 
state 214 

mode : IN OUT* (191) 

. reduce 191 
state 215 

fst.S.id. : fst.S.id. / id* (15) 

. reduce 15 
state 216 
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rel : s i mp 1 e$expr opt. NOT. IN 

OPt . con s t r . «• (78) 

. reduce 78 
state 217 

opt .const r, : constr<* (75) 

. reduce 75 
state 218 

constr : rangeSconst r<- (23) 

. reduce 23 
state 219 

rangelconst r : RANGE«*range 

id shift 229 
num shift 89 
charist r shift 90 
. error 
range goto 258 
range! i d goto 170 
lit goto 172 
state 220 

range J rangeSid . .<-s i mpl eSexpr 
oot . una ry $op . : (81) 

NOT shift 53 
+ shift 51 
- shift 52 



typeSmark 
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reduce 81 



simole$expr goto 259 
ODt .unarySoo. goto 49 
unarySop goto 50 
state 221 

f s t . add i ng$op . t e pm . : f s t . addi ng$op . t e rm . addingioo 

term*- (84) 

. reduce 84 
state 222 

f st .mul t$op. f ac . : f s t . mu 1 t Sop . f ac . multJop fac*- 

(87) 

. reduce 87 
state 223 

f s t . $ .compJassoc . : f s t ♦ S , compJ assoc . i *-comp$assoc 

OTHERS shift 123 

id shift 21 

num shift 89 

charSstr shift 90 

( shift 91 

. error 

typeSmark goto 125 
name goto 124 
lit goto 85 
discJrange goto 122 



comoSassoc goto 260 
aggr goto 86 
restrSchoice goto 120 
p r i goto 121 

suborogSar rayJvar goto 22 
se 1 ec t edScomo goto 23 
predef i ned$at t r i goto 24 
var goto 88 
state 224 

aggr : ( compSassoc f st . S . compSassoc . )«• 

. reduce 43 
state 225 

f st .S.choi ce. : f s t . $ . cho i ce . !«-choice 

OTHERS shift 123 

id shift 171 

num shift 89 

charSstr shift 90 

. error 

typeSmark goto 125 
name goto 107 
rangeSid goto 262 
lit goto 172 
discSrange goto 122 
choice goto 261 



(43) 
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restrSchoice goto 263 
suborogSarraySvar goto 22 
se 1 ec t edScomp goto 23 
predef i nedSat t r i goto 2a 
state 226 

compSassoc : restrSchoice f s t . $ . c ho i c e . = >«-exor 

oot . unarySoo . : *■ (31) 

NOT shift 53 
+ shift 51 

- shift 52 

. reduce 81 
expr goto 26a 
simpleSexpr goto a8 
rel goto a7 
opt . unary $oo . goto a9 
unarySop goto 50 
state 227 

opt . . 1 s t * S . cho i c e . . $ . e xo r . : f s t . S . c ho i ce . =>«-expr 

opt . unary Sop . : «* (81) 

NOT shift 53 
+ shift 51 

- shift 52 

. reduce 81 
expr goto 265 
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simoleSexor goto 48 
re) goto 47 
opt .unarySoo . goto 49 
unarySoo goto 50 
state 228 

discSrange : typeimark RANGE ranged (40) 

. reduce 40 
state 229 

range$id : i d<- (27) 

* reduce 27 
state 230 

suborog$body : suborogSsoec IS dec 1 arat i ve$par t BE- 
GIN seq$o f $s t m t s END id ? *• (192) 

. reduce 192 
state 231 

stmt : << id »<-s t mt 

opt . i t erSspec . : *■ (148) 

error shift 131 

ASSERT shift 147 

CASE shift 149 

EXIT shift 144 

FOR shift 152 

GOTO shift 146 

IF shift 148 
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NULL shift 138 



RETURN shift 145 
WHILE shift 153 
id shift 21 
<< shift 130 
. reduce 148 
name goto 143 
suOProg$ar rayivar goto 22 
se 1 ec t edScomp goto 23 
p rede f i ned$a t t r i goto 24 
var goto 142 
stmt goto 266 
simpleSstmt goto 128 
compoundSstmt goto 129 
ass i gnment $st mt goto 132 
subprogScal 1 Sstmt goto 133 
exit? stmt goto 134 
returnSstmt goto 135 
gotoSstmt goto 136 
assertSstmt goto 137 
ifSstmt goto 139 
caseSstmt goto 140 
loopSstmt goto 141 
opt . i terSspec . goto 150 



i t e r Sspec goto 151 
state 232 

expr : expr«-log$op rel 

ass i gnment $stmt : var := expp«-; 

AND shift 69 
OR shift 70 
XOR shift 71 
; shift 267 
. error 
log$oo goto 68 
state 233 

expr : exprHogSop rel 

as s i gnmen t $s t m t : name := expr<-; 

AND shift 69 
OR shift 70 
XOR shift 71 
; shift 268 
. error 
logSoo goto 68 
state 234 

exitSstmt : EXIT opt.id. opt . WHEN . cond . «■ ; 

; shift 269 
. error 
state 235 
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od t . WHEN . cond . : rtHEN«-cond 

opt .unarySop. : (81) 

NOT shift 53 
+ shift 51 
- shift 52 
. reduce 81 
expr goto 199 
simpl e$expr goto 48 
re) goto 47 
opt.unarySoP. goto 49 
unarySop goto 50 
cond goto 270 
state 236 

returnSstmt : RETURN opt. expr. ; «- (134) 

. reduce 134 
state 237 

gotoSstmt : GOTO id ; (162) 

. reduce 162 
state 238 

assertSstmt : ASSERT cond }*■ (163) 

. reduce 163 
state 239 

f s t . condSex t . : f s t . condSex t .«-cond$ex t 

cond : expr f s t . condSex t . «■ (142) 
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AND. THEN shift 272 



OR. ELSE shift 273 
. reduce 142 
cond$ext goto 271 
state 240 

ifSstmt : IF cond THEN+-sea$o f $s t m t s 

f s t • ELS IF . cond . THEN . seq$o f $s t mt s . oot . ELSE . seqSo f $s t m t s . END 
IF ; 

fst.stmt. : <- (112) 

. reduce 1 1 2 
fst.stmt. goto 94 
seq$of$stmts goto 274 
state 241 

caseSstmt : CASE expr 

0F<-f s t . WHEN . c ho i c e . . 1 s t . $ . c ho i ce . . $ . seqSo f Ss t mt s . END CASE 

f st . WHEN . c ho i ce . . 1 s t . S . c ho i ce . . S . seqSof Ss t mt s . : ♦* 

(145) 

. reduce 145 

fst. WHEN. choice.. 1st. $. choice. .J.seqSofSstmts. goto 

275 

state 242 

basicSIooD : LOOP seq$o f $st mt s<-END LOOP opt. id. > 

END shift 276 



error 



state 243 



i terJspec : FOR I oopJpara IN«-opt . REVERSE . discSrange 

opt. REVERSE. : «- (154) 

REVERSE shift 278 
. reduce 154 
opt. REVERSE. goto 277 
state 244 

objSdecl : idSlist : opt . CONST ANT . t ype«-opt . S . expr . 

opt. S.expr. : *• (11) 

:= shift 257 
. reduce 1 1 
opt. $. expr. goto 279 
state 245 

type : type$mark«- (17) 

. reduce 17 
state 24o 

typeSdecl : TYPE id IS type$defn<-; 

; shift 280 
. error 
state 247 

tyoeSdefn : enum$t ypeSdef n<- (18) 

. reduce 18 
state 248 

typeSdefn : i ntSt yoeidef n<- (19) 
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reduce 19 



state 249 

typeSdefn : arrayStyoeSdef n«- (20) 

. reduce 20 
state 250 

typeSdefn : record$type$defn<- (21) 

* reduce 21 
state 251 

enumStyoeSdef n : («-enum$lit , f s t . enunl 1 i t . ) 

id shift 282 
charSstr shift 283 
. error 

enumS lit goto 281 
state 252 

i nt St ypeSdef n : rangeSconst r«- (34) 

. reduce 34 
state 253 

a r r ay $ t ypeSde f n : ARRAY<-( index fst.S. index. ) 

typeSmark ; 

( shift 284 
. error 
state 254 

recordSt yoeSde f n : RECORD«-comp$ 1 i st END RECORD 



f st .ob j $dec 1 



(55) 



reduce 55 



comoSlist goto 285 
f st .ob j $dec 1 . goto 286 
state 255 

modSbody : modSnature BODY id IS dec 1 arat i veSpart 

END id (197) 

. reduce 197 
state 25b 

paraSdecl : idSlist : mode typeSmark op t . $ . exp r . «- 

(186) 

. reduce 186 
state 257 

opt. S.expr. : :=<-expr 

opt . unaryloo . : <- (81) 

NOT shift 53 
* shift 51 
- shift 52 
. reduce 81 
expr goto 287 
simole$expr goto 98 
rel goto 47 
opt .unarySop. goto 49 
unarySop goto 50 
state 258 
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rangeiconst r 



RANGE range*- 



(25) 



state 

state 

(« 2 ) 

state 

state 

state 

state 

(48) 



. reduce 25 

259 

range : range$id .. s i mo 1 e$e xp r*- (26) 

. reduce 26 

260 

f st . $ .compSassoc . : f st .$.comp$assoc . / 

. reduce 42 
261 

f st .S.choi ce. : f s t . $ . c ho i ce . ! choice*- 

. reduce 45 
262 

choice : rangeSid*- (52) 

. reduce 52 

263 

choice : rest r$c ho i ce*- (53) 

. reduce 53 

264 

compSassoc : restrSchoice f s t . $ . c ho i c e . 

expr : expr*-log$op re) 

AND shift 69 
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compSassoc*- 



(45) 



= > expr*- 



0R shift 70 



XOR shift 71 



state 

(47) 



state 

state 

state 

state 



. reduce 48 
1 og$oP goto 68 

265 

opt . . 1 s t . $ . cho i ce . . S . expr . : f s t . $ . c ho i c e . = 

expr : exor«-log$op rel 

AND shift 69 
OR shift 70 
XOR shift 71 
. reduce 47 
logSoo goto 68 

266 

stmt J << id >> stmt* - (117) 

. reduce 117 
2o7 

ass i gnmen t $s t m t : var := expr /*■ (129) 

. reduce 129 
268 

ass i gnment $st mt : name := expr ; «* (130) 

« reduce 130 
269 

exitSstmt : EXIT opt. id. opt . WHEN . cond . 

. reduce 161 



> expr*- 



( 161 ) 



1 49 



state 2 7 0 



state 



state 



state 



opt . WHEN . cond . : WHEN cond«- (lbO) 

. reduce 160 

271 

f st .condSext . : f st .condSext . condSext* 

. reduce 141 

272 

condSext : AND . THEN«-expr 

opt .unarySop. : * (81) 

NOT shift 53 
+ shift 51 

- 3h i f t 52 

. reduce 81 

expr goto 288 

simpleSexpr goto 48 

rel goto 47 

opt . una r y Sop . goto 49 

unarySop goto 50 

273 

condSext : OR . ELSE*expr 

opt . unary Sop . : * (81) 

NOT shift 53 
♦ shift 51 

- 3 h i f t 52 



( 141 ) 
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reduce 81 



expr goto 289 
simoleSexor goto 48 
rel goto 47 
opt .unarySoo. goto 49 
unarySop goto 50 
state 274 

i f $ s t n t t IF cond THEN 

seq$of$stmts«-fst.ELSIF. cond. THEN. seq$of$strrts. 
op t . ELSE . seq$o f $s t m t s . END IF ; 

f s t . ELS I F . cond . THEN . seq$o f $s t m t s . : <* (135) 

. reduce 135 

f s t . ELS I F . cond . THEN . seq$o f Sst m t s . goto 290 
state 275 

fst. WHEN. choice.. 1st. $. choice. .S.seq$of$stmts. : 

fst. WHEN, choice. .1st. 5. choice. .$.seq$of$stmts.*-<« HEN choice 
f st .S.choi ce. => seq$of Sstmts 

caseSstmt ? CASE expr OF 

fst. WHEN, choice.. 1st. $ . choice. ,$.seq5of$stmts.«-END CASE 
END shift 292 
WHEN shift 291 
. error 
state 276 

basicSIoop : LOOP seq$of$stmts END<-L00P opt. id. 7 
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LOOP shift 293 



. error 
state 277 

iterSspec : FOR loopSpara IN opt .REVERSE. «-di scSrange 

id shi ft 21 
. error 

typeSmark goto 125 
name goto 107 
discSrange goto 294 
subprogiar raySvar goto 22 
se 1 ec t edScomp goto 23 
prede f i ned$at t r i goto 24 
state 278 

opt. REVERSE. : REVERSE* (155) 

. reduce 155 
state 279 

objSdecl : idSlist J opt .CONSTANT . type opt . $ . expr . * 

? shift 295 
. error 
state 280 

typeSdecl : TYPE id IS typeSdefn ?* (24) 

. reduce 24 
state 281 

enuml t ypeSde f n : ( enum$1it«-> fst.enumSHt. ) 
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9 



3h i f t 296 



. error 
state 282 

enum$ 1 i t : i d«* ( 32 ) 

. reduce 32 
state 283 

enum$)it : char$str«- (33) 

. reduce 33 
state 28a 

a r r ay $ t ype$def n : ARRAY («-index fst.S. index. ) OF 

typeimark } 

id shift 21 
. error 

type$mark goto 299 
name goto 107 
index goto 297 
discSrange goto 298 
suborogJarraylvar goto 22 
sel ected$comp goto 23 
predefinedSattri goto 2a 
state 285 

rec o rd$ t ypeSde f n : RECORD comp$ 1 i s t «-END RECORD 

END shift 300 
. error 
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state 286 



f s t . ob j Sdec I . : f s t . oo j Sdec 1 . <-ob j Saec 1 

compSlist : f st .ob j Sdec 1 .*• (57) 

id shift 66 
. reduce 57 
ob j Sdec 1 goto 3 01 
i d$ 1 i st goto 100 
state 287 

oPt.S.expr. : := expr«- C 1 2 ) 

expr : expr^logSop rel 

AND shift 69 
OR shift 70 
XOR shift 71 
. reduce 12 
logioc goto 68 
state 288 

expr : expr«-log$op rel 

condSext : AND. THEN expr*- (193) 

AND shift 69 
OR shift 70 
XOR shift 71 
. reduce 193 
logSop goto 68 
state 289 
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expr 



expr^logJoo re) 



condiext : OR. ELSE expr*- (144) 

AND shift 69 
OR shift 70 
XOR shift 71 
. reduce 144 
log$op goto 68 
state 290 

fst.ELSIF. cond. THEN. seqiofistmts. : 

f s t . ELS IF . cond . THEN . seqSo f $s t mt s . ♦•ELS IF cond THEN 

seq$of$stmt3 

ifSstmt : IF cond THEN seqSof Sstnts 

fst.ELSIF. cond. THEN. seqSofJstmts. <- 001 .ELSE.seqSofSstmts. END 
IF ; 

opt . ELSE . seqlo f $s t m t s . : <- (137) 

ELSE shift 304 
ELSIF shift 302 
. reduce 137 

op t . ELSE . seq$o f Ss t m t s . goto 303 
state 291 

fst. WHEN. choice.. 1st. S. choice. .$.seq$of$stmts. : 

fst. WHEN. choice.. 1st. $. choice. .S.seqSofSstmts. WHEN* choice 
f st .S.choi ce. => seq$of$stmts 
OTHERS shift 123 
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id shift 171 



num shift 89 
charSstr shift 90 
. error 

typeSmark goto 125 
name goto 107 
rangeSid goto 262 
lit goto 172 
discSrange goto 122 
choice goto 305 
restrJchoice goto 263 
subprogSar raySvar goto 22 
se 1 ec t edScomp goto 23 
predef i nedSat t r i goto 24 
state 29 2 

caseSstmt : CASE expr OF 

fst. WHEN. choice.. 1st. $. choice. .S.seqSofSstmts. END«-CASE 
CASE shift 306 
. error 
state 293 

basicSloop : LOOP seqSofSstmts END L00P«-opt.id. • 

opt .id. : «* ( 151 ) 

id shift 104 
. reduce 151 
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opt. id. goto 307 
state 29a 

iterSspec : FOR loopSpara IN opt. REVERSE. 

disc$range«- (156) 

. reduce 156 
state 295 

objSdecl i idSlist 5 opt . CONST ANT . type opt.S.exor. 
?♦• (13) 

. reduce 13 
state 296 

enum$t ypeSde f n : ( enumSlit > «-f s t . enum$ 1 i t . ) 

fst.enumSlit. : *■ (29) 

. reduce 29 
fst.enumSlit. goto 308 
state 297 

a r r ay S t ypeSde f n : ARRAY ( i ndex<-f st . $ . i ndex . ) OF 

tyoeJmark ; 

f s t . $ . i ndex . : «■ ( 35 ) 

. reduce 35 
fst.S. index. goto 309 
state 298 

index : discSrange** (38) 

. reduce 38 
state 299 
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index 



t ypeSmar k«- 



(39) 



discSrange : tyoe$mark«-RANGE range 

RANGE shift 18b 
. reduce 39 
state 300 

recordStypeidefn : RECORO compSlist END«-RECORD 

RECORO shift 310 
. error 
state 301 

f st .ob j Sdec 1 . : f s t . ob j $dec 1 . obj$decl«- (56) 

. reduce 56 
state 302 

fst.ELSIF.cond.THEN.seqiofSstmts. 
fst.ELSIF.cond.THEN.seq$of$stmts. ELSIF«-cond 

seqSof Sstmt s 

opt .unarySop . : «■ (81) 

NOT shift 53 
t shift 51 
- shift 52 
. reduce 81 
expr goto 199 
simoleSexpr goto 48 
rel goto 47 
opt . una ry Sop . goto 49 



THEN 
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unarySop goto 50 
cond goto 311 
state 303 

ifSstmt : IF cond THEN seqSofSstmts 

fst .ELSIF. cond. THEN. seqSofSstmts. opt .ELSE. seqSofSstmts. ♦•END 
IF ; 

END shift 312 
. error 
state 304 

op t . ELSE . seqSo f Ss t m t s . : ELSE«-seqSof Sstmt s 

fst. stmt. : «- (112) 

. reduce 1 1 2 
fst. stmt. goto 94 
seqSofSstmts goto 313 
state 305 

fst. WHEN. choice.. 1st. $. choice. .5. seqSofSstmts. : 

fst. WHEN. choice.. 1st. S. choice. .$. seqSofSstmts. WHEN 

choi ce^fst .$. choi ce. => seqSofSstmts 
f st .S. choice. : «• (44) 

. reduce 44 
fst. $. choice. goto 314 
state 306 

caseSstmt : CASE expr OF 

f s t . WHEN . c ho i ce . . 1 s t . $ . cho i ce . . S . seqSo f Ss t m t s . END CASE«- 
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( 147 ) 



. reduce 147 
state 307 

basicSIoop : LOOP seq$of$stmts END LOOP opt. id.*-? 

; 3h i f t 315 
. error 
state 308 

f s t . enum$ 1 i t . : f s t . enum$ 1 i t . <-enum$ 1 i t 

enum$ t yoe$de f n : ( enumSlit t f s t . enumS 1 i t . «- ) 

id shift 282 

charist r shift 283 

) shift 317 

. error 

enum$ 1 it goto 316 
state 309 

fst.S. index. : f st .$. i ndex .*■, index 

a r r ay S t ype$de f n : ARRAY ( inoex f s t . i . i ndex . <* ) OF 

typeimark i 

) shift 319 
t shift 318 
. error 
state 310 

reco rdS t ype$de f n : RECORD compSlist END RECORD*- 

(54) 
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reduce 54 



state 311 

fst.ELSIF.cond.THEN.seq$of$strcts. : 

f s t . ELS IF . c ond . THEN . seqSo f $s t mt s . ELSIF cond«*THEN 

seqSof Sst mt s 

THEN shift 320 
. error 
state 312 

ifSstmt : IF cond THEN seqSo f Sst mt s 

fst.ELSIF.cond.THEN.seqSofSstmts. opt. ELSE. seqSofSstmts. 

END<-IF ; 

IF shift 321 
. error 
state 313 

OPt . ELSE . seqSo f Sst mt s . : ELSE seqSof Sstmt s«- (138) 

. reduce 138 
state 314 

f st .S. choice. : f st . $ .choi ce ! choice 
fst. WHEN. choice.. 1st, S. choice. .$. seqSofSstmts. : 

fst .WHEN. choi ce. . 1 st .$. choi ce. .$. seqSo f Sst mt s . WHEN choice 
f s t . S.cho i c e . «• = > seqSofSstmts 
=> shift 322 
! shift 225 
. error 
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state 315 



(153) 

state 

state 
(31 ) 
state 



state 



bas i c $ 1 oop : LOOP seqiofSstmts END LOOP opt. id. 

. reduce 153 

316 

fst.enum$1it. ! fst.enumSIit. e n u m i 1 i t <■ (30) 

. reduce 30 

317 

enumStypeSdef n : ( enumSlit t f st . enum$ 1 i t . 

. reduce 31 

318 

fst.S. index. : fst.S. index. ,«-index 

id shift 21 
. error 

typeSmark goto 2 99 
name goto 107 
index goto 323 
discSrange goto 298 
suborog$array$var goto 22 
sel ectedScomp goto 23 
p rede f i ned$a t t r i goto 24 

319 

arraySt ypeSdef n : ARRAY ( index fst.S. index. 



)<- 



) «-0F 
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typeSmark > 

OF shift 324 
. error 
state 320 

fst. ELSIF. cona. THEN. seqSofSstmts. : 

f s t . ELS IF . cond . THEN . seqSo f Sst mt s • ELSIF cond 

THEN* seqSofSstmts 

fst.stmt. : * (112) 

♦ reduce 1 1 2 
f st .stmt . goto 94 
seqSofSstmts goto 325 
state 321 

ifSstmt t IF cond THEN seqSofSstmts 

f st .ELSIF. cond. THEN. seqSofSstmts. op t . ELSE . seqSo f Ss t m t s . END 
IF*; 

; shift 326 
. error 
state 322 

fst. WHEN. choice.. 1st. S. choice. .$. seqSofSstmts. : 

fst .WHEN. choi ce .. 1 st .$. choi ce ..$. seqSo f Sstmt s . WHEN choice 
f s t . $ . c ho i c e . =>*seq$o f Ss t m t s 
fst.stmt. : * (112) 

. reduce 112 
fst.stmt. goto 94 
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seq$of Sstmt s goto 327 
state 323 

f st • S • index. : f s t . $ • index. » index*- (3o) 

. reduce 3b 
state 324 

a r r ay $ t ypeSde f n : ARRAY C index fst.S. index. ) 

OF«-type$mark ; 

id shift 21 
. error 

typeSmark goto 328 
name goto 107 
suborogSarraySvar goto 22 
se 1 ec t eoScomp goto 23 
predef i ned$at t r i goto 24 
state 325 

fst.ELSIF. cond. THE N.seqSofSstmts. : 

f s t . ELS IF . c ond . THEN . seqSo f $s t m t s . ELSIF cond THEN 

seq$of Sstmt s*- (136) 

• reduce 136 
state 326 

ifSstmt : IF cond THEN seqSofSstmts 

f s t . ELS IF . cond . THEN . seqSo f $s t mt s . op t . ELSE . seqSo f $ s t m t s . END 
IF (139) 

. reduce 139 
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state 327 



fst. WHEN, choice.. 1st. $. choice.. 3. seqSofSstmts 
fst. WHEN, choice.. 1st. $. choice. .$.seq$of$stmts. WHEN 
fst .$. choice. => seqSof $stmts«- (146) 

. reduce 146 
state 328 

a r ray 3 1 ype$de f n : ARRAY ( index fst. $. index, 

t ypeSmar k* ? 

; shift 329 
. error 
state 329 

arrayStypeSdefn : ARRAY ( index fst. $. index. 

typeSmark f «■ (37) 

. reduce 37 

71/95 terminals/ 113/150 nonterminals 
205/250 grammar rules/ 330/475 states 
0 sh i f t / r educ e / 0 reduce/ reduce conflicts reported 
113/150 working sets used 

memory: stateS/etc. 2118/4000/ parser 450/1500 

230/250 distinct lookahead sets 

404 extra closures 

330 shift entries/ 12 exceptions 

193 goto entries 

203 entries saved by goto default 



choice 



) OF 



) OF 
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Ootimizer soace used: incut 935/4000# outcut 
380 table entries# 0 zero 

maximum spread: 256# maximum offset: 324 



380/1500 
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APPENDIX D 



Test Programs and OutDuts 

This Appendix illustrates the scanner/parser actions 
accomplished by this thesis. The test programs were written 
to include the syntactic constructs of Ada/MCS and to fully 
exercise the capibilities of the parser and scanner. The 
first four orograms include the output of the scanner/parse r 
in order to demonstrate the output format. The final six 
programs are provided with no output. The odd numbered pro- 
grams are syntactically correct and eacn program is followed 
by a similar orogram with an error included. 
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Program one 



FUNCTION sin IS 
8EGIN 



FOR x IN z RANGE 1 
LOOP 

x 

END LOOP; 
cos ( x , y ) ; 

RETURN x ; 



END sin; 



. . 10 



a + b; 
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Output one 



14 J FUNCTION 

! opt . v i si res t r i c t i on . 
! opt .SEPARATE. 

! subproginat ure 
54 J sin 

! designator 
18 ! IS 



5 



opt. formal Spart. 

opt .RETURN. typeimark. 

subprogispec 

BEGIN 



opt . useic 1 ause . 
f st .dec 1 . 
f st .body, 
dec 1 arat i veipar t 
f st .stmt . 



13 ! FOR 
54 J x 

! 1 oopipa r a 

17 J IN 
54 ! z 

\ opt. REVERSE. 
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I 



name 



29 ! RANGE 
! typeSmark 
55 ! 1 
! lit 

! rangeS i d 
71 ! .. 

55 ! 10 

opt . una ry Sop . 

! lit 
! pri 
! fac 

{ fst.multSop.fac. 

19 | LOOP 
! term 

! f st .addi ngSop. term. 
! simpleSexpr 
! range 
! discSrange 
{ iterSspec 
! opt . i terSspec . 

! f st . stmt . 

5a ! x 

! name 



70 ; 



54 ! a 

i opt.unary$op. 

! name 
92 i * 

! pri 
f ac 

! f st .mu 1 1 Sop . f ac . 

! term 

S f st .addi ngSop. term. 
! addingSoo 
54 i b 
{ name 
70 : ; 



pri 
f ac 

f st .mu 1 1 Sod . f ac . 
term 

f st .addingSop.term. 
s i mp 1 eSexpr 

opt .rel al Sop.simpleSexpr. 

re 1 

expr 

assignmentSstmt 
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s i mp 1 eSs t mt 



! stmt 
I f st . stmt . 

1 1 : END 

• seqSofSstmts 
19 LOOP 

78 i ; 

! opt. id. 

J ba s i c $ 1 oop 
| loopSstmt 
! compoundSs t m t 
S stmt 
! fst.stmt. 

54 ! cos 
! name 

79 | ( 

54 J x 

! opt . una ry Sop . 

! name 

82 : , 

! pri 
! f ac 

! f s t • mu 1 t Sop . f ac . 
! term 
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! f st .add) ng$op. term. 

! simoleSexor 

opt . re 1 a 1 Sop . s i mp 1 eJexpp . 
! re 1 
! expr 

! fst.S.expr. 

54 ! y 

' opt . una ry Sop . 

! name 
80 ! ) 
i pri 
! f ac 

5 f st .mul t$op. fac . 

! term 

! f s t . add i ng$op . t erm . 

! simpleSexor 

' opt.relalSoo.simpleSexpr. 
i re 1 
J expr 

J fst.S.expr. 

! subProgSar raySvar 
! name 
78 i ; 

! subprogScall Sstmt 
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s i mp 1 e$s t m t 



! Stmt 

! fst.Stmt. 

32 : RETURN 
54 ! x 

! oDt.unary$op. 
i name 
78 : ; 

! pri 

! f ac 

f s t .mu 1 t $op . f ac . 

! term 

! f st .addi ng$op . term . 

! s i mp 1 e$exc r 

J opt . re 1 a 1 $op . s i mp 1 e$expr . 
! re 1 
! e x p r 

! opt.expr. 

! returnSstmt 
! si mpl eSstmt 
} stmt 
J fst.Stmt. 

11 END 

J seqSofSstmts 



174 



54 ! sin 



78 ! ; 

! subprogibody 
! unit Sbody 
! compi 1 at i on$uni t 
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Program two 



FUNCTION sin IS 
BEGIN 

FOR x IN z RANGE 1..10 
LOOP 

x : = a + b ; 
END LOOP; 
c o s ( x / y ) ; 

RETURN x ; 

END ? sin; 



Output two 



14 : FUNCTION 

! oot . v i sSrest r i c t i on . 
5 opt. SEPARATE. 

! subprogSnat ure 
54 sin 

! designator 

18 ; is 



5 



opt . formal Spart . 

OPt. RETURN. typeSmark. 

subprogSsoec 

BEGIN 



opt .use$c 1 ause . 
f st . dec 1 . 
f s t . body . 
declarativeSpart 
f st .stmt . 



13 ! FOR 



54 ! x 

1 loopSpara 
17 S IN 
54 J z 

! opt. REVERSE. 
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I 

I 



name 



29 | RANGE 
I tyoeimark 
55 ! 1 
I lit 

! rangeSid 
71 ! . . 

55 ! 10 

! oot . una ry S op . 

: nt 
! pr i 
! fac 

! f st .mul tSop. fac . 

19 ! LOOP 
! term 

! f s t . addi ngSop . t erm . 
! s i mo 1 eSexor 
S range 

discSrange 
5 iterSspec 
! opt . i t er Sspec . 

! f st .stmt . 

5a | x 



1 78 



! name 



70 ! : = 

5a ; a 

J op t . unary lop. 

J name 
92 J + 

! pr i 
J f ac 

! f st .mul t Sop. f ac . 

! term 

f st .addi ngSop.term. 

{ addingSoo 
54 ! b 
! name 
78 ! ; 

I pr i 
J f ac 

! f st .mul tSop. f ac . 

! term 

5 fst .addi ngSop. term. 

5 simpleiexop 

! opt • re 1 a 1 Sop . s i mp 1 eS e xpr . 
! rel 
! expp 
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ass i gnmen t $ stmt 



s i mp 1 e$s t mt 



! stmt 
{ fst.stmt. 

11 ! END 

} seqSofSstmts 
19 ! LOOP 

78 ; ; 

! oo t < id. 

} Oas i c $ l oop 
1 loopSstmt 
! compoundSstmt 
I stmt 
I fst.stmt. 

54 1 cos 
I name 

79 ,• ( 

54 : X 

! opt .unarySop. 

! name 
82 ; , 

I pr i 
! fac 

! f s t . mu 1 t S op . f ac • 
! term 
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! f s t . add i ngSop . t e rn . 

I si mol eSexpr 

! opt . re 1 a 1 Sop . s i mpl eSexpr . 
! re 1 
! expr 

I fst .S.expr. 

54 : y 

! opt .unarySop. 

! name 
80 ! ) 

! pri 
fac 

{ fst .mul t$op. fac . 

! term 

! fst .addi ng$op. term. 
simpleSexor 

! opt . rel al Sop. simpl eSexpr. 
! rel 
! expr 

i fst. S.expr. 

! subprogSar ray Svar 
! name 
78 ! ; 

J subprogScall Sstmt 
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simpleSstmt 



i stmt 
! f st . stmt . 

32 ! RETURN 
54 ! x 

! opt .unaryloo. 

! name 
79 s ; 

! pr i 
! f ac 

! f s t . mu 1 t $oo . f ac . 

! term 

! f st .addi ngSop. term. 

! s i mp 1 eSexpr 

! opt . re 1 a 1 Sop . s i mp 1 e$exp r . 
! re 1 
! expr 

! oot .expr . 
i return Sstmt 
} simpleSstmt 
' stmt 
! f st . stmt . 

1 1 ; END 

! seqSofSstmts 
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Scanner e r ro r : unknown symool 



54 ! sin 

78 ! ; 

! subproglbody 
! un i t Sbody 
! compi 1 at i on$un i t 
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Program three 



PACKAGE 



END test 



test IS 

TYPE s IS RANGE i .. 10 ; 

TYPE t IS RECORD 

idfer, idferl, idfer2 : s ? 

END RECORD; 
i dl : t ? 

TYPE set IS ARRAY ( red# ye 1 1 ow , b 1 ue ) OF colors 
primary : set? 

TYPE victor IS (whi skey r fox t rot ) ; 



tsa 



Output three 



27 ! PACKAGE 

oPt.visSrestriction. 

opt . separate. 

modJna t u r e 



5a 


: test 


18 


: is 


36 


: TYPE 


1 

1 


opt . useSc 1 


( 

« 


f st . dec 1 . 


5a 


! s 


18 


: is 


29 


: RANGE 


55 


! 1 


( 

1 


1 i t 


1 

1 


rangeS i d 


71 


• 

• • • 


55 


! 10 



! opt .unaryiop. 



I lit 



pr i 
f ac 



f st .mul t Sop. f ac 



78 ; ; 

! term 

I f s t . add i ng$op . t e rm . 
! simpleSexpr 
! range 

! rangeSconstr 
! i nt St ypeSde f n 
{ typeSdefn 
J typeSdec) 

{ dec l 
i f st .dec 1 . 



36 


1 

1 


TYPE 


54 


1 

1 


t 


18 


1 

1 


IS 


30 


I 

• 


RECORD 



! f s t . ob j Sdec 1 . 
54 | i df er 
S fst.S.id. 

82 ! , 

54 ! idferl 
! fst.S.id. 

82 ; , 

54 ! idfer2 
! fst.S.id. 
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91 ; : 

i i d$ 1 i st 
5a ! s 

! opt. CONSTANT. 

! name 
78 ! ; 

! typeSmark 
J type 

1 oPt.S.expr. 

S ob j Sdec 1 
! f st .ob j Sdec 1 . 

11 ! END 

! compS list 
30 ! RECORD 

! recordSt yoeSdef n 
! typeSdefn 
78 1 ; 

! typeSdecl 
! dec 1 
! f st .dec 1 . 

54 J idl 

! fst.S.id. 

91 l : 

! i d$ H s t 
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54 : t 



: Opt .CONSTANT. 



! name 



78 


f • 

1 9 


1 

1 


t ype$ma r k 


1 

1 


type 


1 

1 


opt .S.expr. 


1 

1 


ob j $dec 1 


1 

1 


dec 1 


1 

1 


f s t .dec 1 . 


36 


! TYPE 


54 


! set 


18 


i IS 


3 : 


ARRAY 


79 


: c 


54 


! red 


1 

1 


name 


82 


1 

1 / 


1 

1 


typeSmark 


1 

1 


i ndex 


1 

1 


f st . $ . i ndex 


54 


! yellow 


1 

1 


name 


82 


1 

1 9 
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! typeSmark 
! index 

! f s t . $ . i ndex . 

54 ! blue 
! name 
80 ! ) 

! typeimark 
! index 

! f st i ndex . 

23 ! OF 
54 J colors 
I name 
78 ! ; 

i typeJmark 
1 arrayStypeSdef n 
! typeidefn 
i typeidecl 
! dec 1 
1 f st .dec 1 . 

54 | pr i mary 

! f st .5 . i d. 

9 1 1 : 

1 i dS list 
54 ! set 
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! opt .CONSTANT 



I name 



78 


1 • 

» / 


1 

1 


t ypeima r k 


1 

1 


type 


1 

1 


opt .S.expr , 


1 

1 


ob j $dec 1 


» 

1 


dec 1 


1 

1 


f st .dec 1 . 


36 


1 TYPE 


54 


! victor 


18 


; IS 


79 


! ( 


54 


! whiskey 


1 

1 


enum$ 1 i t 


82 


1 

1 / 


1 

1 


fst.enumSl it. 


54 


! foxtrot 


1 

1 


enum$ 1 i t 


1 

» 


fst.enumSl it. 


80 


! ) 


> 

1 


enum$ t yceJde f n 


I 

1 


t ypeJde f n 


78 


1 • 

1 9 
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t ypeSdec 1 



J dec 1 
! f s t .dec 1 . 

11 ; END 

! f s t . body . 

S dec 1 arat i veSpart 
! op t . I S . dec 1 a ra t i ve Soa r t . 

54 ' test 
i opt . i d . 

! modSspec 
J unit $body 
! compi 1 at i on$uni t 
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Program four 



PACKAGE 



END test 



test IS 

TYPE s IS RANGE 1 .. 10 ; 

TYPE t IS RECORD 

idfer, idferlr i d f e r 2 : s ; 

END RECORD; 
i d l : t ; 

TYPE set IS ARR A Y C red / y e 1 1 ow , b 1 ue ) OF colors 
primary : set; 

TYPE victor IS (whiskeyrfoxtrot); 
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Output four 



27 ! PACKAGE 

opt.vis$restriction 
opt .SEPARATE . 
modSnat ure 



5a 


I test 


18 


! IS 


36 


; TYPE 


1 

1 


opt . use $c 1 


1 

t 


f st .dec 1 . 


sa 


! s 


18 


: is 


29 


! RANGE 


55 


: 1 


1 

1 


1 i t 


1 

1 


r angel i d 


71 


1 

1 • t 


55 


: io 



I opt .unarySoP . 
I lit 



pr i 
f ac 

f $ t . mu 1 t $op . f ac . 
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78 ! ; 



term 

fst.addingSop.term. 

s i mpl e Sex or 

range 

rangeJcons t r 
i nt St ypeSde f n 
typeSdef n 
t ypeSdec 1 
dec 1 

f st .dec 1 . 



36 : 


TYPE 


54 ! 


t 


is ; 


IS 


30 ! 


RECORD 


1 

1 


f st .ob j Sdec 1 


54 } 


i d f er 


1 

1 


fst.S.id. 


82 : 


• 


54 ! 


i dfer 1 


1 

1 


fst.S.id. 


82 : 


t 


54 ! 


i df er2 



! fst.S.id. 
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91 ; : 

! i d$ I i st 
5a | s 

J opt .CONSTANT. 

} name 
78 ! ? 

i typeSmark 
' type 

J opt.S.expr. 

S objSdecI 
{ f st .oo j $dec 1 . 

11 ! END 

! compS 1 i st 
30 J RECORD 

J record$typeSdef n 
} typeSdefn 
78 S ; 

! typeSdecl 
! dec 1 
{ f st .dec 1 . 

5a ; idl 

! fst.S.id. 

91 ; : 

5 i d$ 1 i s t 
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5« ! t 



1 

1 


OP t • CONST ANT 


1 

1 


name 


78 


■ • 

• • 


1 

1 


t ype$irark 


1 

1 


t ype 


I 

1 


opt .i.expr. 


1 

1 


ob j $dec 1 


1 

1 


dec 1 


1 

1 


f st . dec 1 . 


36 


! TYPE 


5a 


set 


18 


! IS 


3 ! 


ARRAY 


79 


: c 


5a 


! red 


1 

1 


name 


82 


S r 


1 

1 


t ypeJma r k 


1 

1 


index 


1 

1 


f st . 5 . i ndex . 


5a 


i yellow 


i 

i 


name 


82 


1 

1 9 
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! typeSmark 
! index 

! f st . $ . i ndex . 

54 ! blue 
i name 
80 ! ) 

J typeimark 
1 index 

! f st i ndex . 

23 ! OF 
54 ! colors 
! name 
78 ! ; 

! typeimark 
J arrayStypeSdefn 
1 typeSdefn 
i typeSdecl 
S decl 

f st .dec 1 . 

54 primary 
J fst.S.id. 

91 ! : 

1 i d$ 1 i st 
54 | set 
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! opt -CONSTANT. 
S name 
78 ! ; 



t ypeSma r k 
t ype 

opt .S.exor. 
ob j $dec 1 
dec 1 

f st .dec 1 . 



36 


i 

i 


TYPE 


5a 


i 

i 


victor 


18 


i 

i 


IS 


79 


i 

i 


( 


5a 


i 

i 


wh i s key 



! enum$ 1 i t 
82 ! , 

! f s t . enum$ 1 i t . 

5 a ! foxtrot 
! enum$ 1 i t 
! f s t . enumJ lit. 
80 ! ) 

5 enumJ t ypeSdef n 
! typeSdefn 



78 : ; 
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t ypeSdec 1 



! dec 1 
! f st . dec 1 . 

11 ! END 

! fst.body. 

1 dec 1 arat i velpart 
S oot . I S . dec 1 a ra t i veSoa r t . 

5 4 ! test 
{ opt . i d. 

! modSsoec 
1 unit $body 
} compi 1 at i onJuni t 

78 ! ; 

syntax error 
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Program five 



PROCEDURE test<-it IS 

a*abortingr abo: integer; 

TYPE t IS ARRAY ( x RANGE 1..10, y RANGE 1..3) OF float; 
amatrix : t; 

BEGIN 

a := 16#3ab7; 

b := "this is a character string."; -- this is a commentllil 
abo : = 6.5E-4; 

ENO test«-it ; 
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Program six 



PROCEDURE test^it IS 

a^aborting, abo: integer; 

TYPE t IS array ( x RANGE 1..10, y RANGE 1..3) OF float; 
ama t r i x : t ; 

BEGIN 

a : = 16#3ab7 ; 

b : = "this is a character string."; -- this is a comment 
abo := 6.5E-4; 

END test«H t ; 
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Program seven 



PROCEDURE idfer IS 

TYPE t IS ARR A Y ( subsc r i p t RANGE numbe r . . numbe r ) OF idfer? 
idfer, idfer : idfer? 

idfer : CONSTANT t? 



BEGIN 

idfer := number * number MOD idfer? 
LOOP 

IF number THEN 

idfer := number? 

END IF? 

EXIT WHEN (number)? 
idfer := char<-st r i ng? -• comment 
END LOOP? 



END idfer ? 



202 



Program eight 



PROCEDURE idfer IS 

TYPE t IS ARRA Y ( subsc r i pt RANGE numbe r . . numbe r ) OF idfer 
idfer^ idfer : idfer; 

idfer : CONSTANT t; 



BEGIN 

idfer := number * number MOD idfer; 
LOOP 

IF number THEN 

idfer : = number ; 

END IF 

EXIT WHEN (number); 
idfer :? char«-st r i ng; -- comment 
END loop; 



END idfer } 
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Program n i r>e 



PROCEDURE test IS 

i d f e r » idferl# i d f e r 2 : s '• 



BEGIN 



CASE a < b OF 

rtHEN number => 
a : = c + d / e ; 
END CASE; 

END test J 
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Program ten 



PROCEDURE test IS 

i df er > idferl/ 



BEGIN 



CASE a < b OF 
a : = c 
END CASE; 

END test ; 



i df er2 : si 



+ d / e ; 
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